Question

Написать программу в паскале .
Если число чётные то делим на два ,если нечётное то возвести в квадрат .

Answer 1

var a: integer;

begin

readln(a);

if a mod 2=0 then writeln (a/2) else writeln (sqr(a));

end.