написать программу на языке паскаль

1) var x:integer;

begin

readln (x);

if x mod 2=0 then

writeln ('Четное')

else

writeln ('Нечетное');

end.

2) var x,y,z,mx,mn:integer;

begin

readln (x,y,z);

x:=x*x;

y:=y*y;

z:=z*z;

mx:=max(x,y,z);

mn:=min(x,y,z);

writeln (mx);

writeln (mn);

end.

3)   var x,y,z:integer;

begin

readln (x);

while x>0 do begin

z:=x mod 10;

x:=x div 10;

if z=3 then

 y:=y+1;

end;

writeln (y);

end.