Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным. (пример 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;beginClrScr;Writeln('Vvedite chislo');Readln(x);If x mod 2=0 then writeln('kvadrat =',x*x) else writeln('nechetnoye');readlnend.