Programa Quantidade de Nº positivos e negativos dia 04

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Quantidade;
 var
Maior,Menor,Np,Nn,N: Integer;
Begin
Np:=0; Maior:= -9999;
Nn:=0; Menor:= 9999;
Repeat
writeln ('int. numero');
Readln (N); 
if N> Maior then
Maior:=N;
if N< Menor then
Menor:= N;
if N>0 then
Else
Nn:= Nn+1
until N=0;
writeln (Np); Writeln (Maior);
writeln (Nn); Writeln (Menor); 
End.