Написать программку чтобы работала в Pascal запрашивает с клавиатуры три случайных числа

Program pr; var a,b,nul,otr,pol,c:integer; begin write('A='); readln(a); write('B='); readln(b); write('C='); readln(c); if agt;0 then pol:=pol+1 else if a=0 then nul:=nul+1 else otr:=otr+1; if bgt;0 then pol:=pol+1 else if b=0 then nul:=nul+1 else otr:=otr+1; if cgt;0 then pol:=pol+1 else if c=0 then nul:=nul+1 else otr:=otr+1; writeln('Положительных: ',pol); writeln('Отрицательных: ',otr); writeln('Нулевых: ',nul); end.

PascalABC
var x,y,z:real;
k,m,n:integer;
begin
k:=0;
m:=0;
n:=0;
writeln('Введите 1-ое  число');
readln(x);
writeln('Введите второе  число');
readln(y);
writeln('Введите третье число');
readln(z);
if xgt;0 then k:=k+1
else if x=0 then m:=m+1
else n:=n+1;
if ygt;0 then k:=k+1
else if y=0 then m:=m+1
else n:=n+1;
if zgt;0 then k:=k+1
else if z=0 then m:=m+1
else n:=n+1;
writeln('Количеcтво положительных чисел : ',k);
writeln('Количеcтво нулевых чисел : ',m);
writeln('Количеcтво отрицательных чисел : ',n);
end.