Написать программу чтоб работала в Pascal запрашивает с клавиатуры три произвольных числа и выводит на экран сообщение о том, сколь-ко из них отрицательных, положительных и нулевых.

PascalABC var x,y,z:real; k,m,n:integer; begin k:=0; m:=0; n:=0; writeln('Введите первое  число'); readln(x); writeln('Введите второе  число'); readln(y); writeln('Введите третье число'); readln(z); if x>0 then k:=k+1 else if x=0 then m:=m+1 else n:=n+1; if y>0 then k:=k+1 else if y=0 then m:=m+1 else n:=n+1; if z>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.

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