var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
107340.170166015625 в десячтичной
Положить альбом в портфель.
наточить цветные карандаши.
положить в пенал цветные карандаши и простой карандаш.
взять если нужно краски, кисть и стаканчик для воды.
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==