Напишите пожалуйста программу на языке паскаля по этой задаче: ввести число если оно четное положительное разделить его на 4, если оно отрицательное четное умножить его на 5, если не четное возвести в квадрат.
Var n:real;a:integer;beginreadln(a);n:=a;if (a mod 2=0) and (a>0) then n:=a/4;if (a mod 2=0) and (a<0) then n:=a*5;if (a mod 2=1) then n:=a*a;writeln(n);end.