www.ispwsznysa.fora.pl

Siwy

program prog3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c:integer;
i,j:byte;
o:char;
begin
repeat
b:=0;
c:=0;
writeln ('Podaj dziesiec liczb');
for j:=1 to 10 do
begin
readln (a);
if ((a mod 2)=0) then inc(b) else inc(c);
end;
writeln;
if b>0 then writeln ('Ilosc wprowadzonych liczb parzystych wynosi ', b)
else writeln ('Nie wprowadzono liczb parzystych');
if c>0 then writeln ('Ilosc wprowadzonych liczb nieparzystych wynosi ', c)
else writeln ('Nie wprowadzono liczb nieparzystych');
writeln;
writeln;
writeln ('Zakonczyc program [Z] czy powtorzyc [P]?');
readln (o);
while (upcase (o)<>'Z') and (upcase (o)<>'P') do
begin
writeln ('Wcisnij "Z" by zakonczyc lub "P" by powtorzyc');
readln (o);
end;
until upcase (o)='Z';
end.