Даны два действительных числа z и x. Возвести в квадрат те из них, значение которых отрицательны

var x,z:real;
begin
writeln('Vvedite dva chisla');
readln(x,z);
if (x<0) then x:=sqr(x);
if (z<0) then z:=sqr(z);
writeln('Novye znacheniya x:',x,' z:',z);
readln
end.

program LoRD1;
uses crt;
var x,z:integer;
begin clrscr;
writeln('Vvedite chislo x= ');
readln(x);
writeln('Vvedite chislo z= ');
readln(z);
if x<0 then begin x:=x*x
end;
if z<0 then begin z:=z*z
end;
writeln('Rezyltat x= ',x , 'z= ',z);
readln;
end.

var x,s:real;
i:integer;
begin
s:=1;
for i:=1 to 5 do
 begin
  write('Vvedite ',i,' chislo=');
  readln(x);
  s:=s*x;
 end;
writeln('Otvet: ',sqrt(s));
readln
end.

uses crt;
procedure otr(var m,n:real);
begin
if m<0 then m:=sqr(m);
if n<0 then n:=sqr(n);
end;
var
z,x:real;
begin
clrscr;
write ('z=');
readln (z);
write ('x=');
readln (x);
otr (z,x);
writeln (z:3:0,' ',x:3:0);
end.

var v,h,o:integer;
begin
v:=174;
h:=6*20;
o:=(v-h) div 18;
writeln('Otvet: ',o);
readln
end.

begin
 s:=174;
 d:= (s-(6*20)) div 18;
 writeln(d);
end.

program LoRD2;
uses crt;
const kor=20; mol=174;
var a,b:real;
begin clrscr;
a:=kor*6;
b:=(mol-a)/18;
writeln('18 litrov moloka dali: ',b:0:1 , ' korovu');
readln;
end.