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

var a: integer;

begin

readln(a);

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

end.

8, 1, 4, 1, 5, 9, 6, 7, 2

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.