Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным. (пример Program p1, writeln итд)

Program p1;

var a: real;

begin

Writeln('Vvedite chislo'); Read(a);  //Считаываем

If a mod 2=0 then writeln(a*a);  

//если остаток от делания на 2= 0, тогда пишем возведенное в квадрат число

end.

Program n1;
Uses CRT;
Var x: integer;
begin
ClrScr;
Writeln('Vvedite chislo');
Readln(x);
If x mod 2=0 then writeln('kvadrat =',x*x)
else writeln('nechetnoye');
readln
end.