Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
Смотрите код во вложении.
1АКЛМ по возрастанию 2МЛКА наоборот по уменьшанию 3МАЛК это большое маленькое большое маленькое 4АМКЛ наоборот маоенько большое маленькое большое Ас буквой М получается 2 хоть я и в 5 классе и у меня нет информатики надеюсь правельно ответил