program suma_liczb;
uses crt;
var il:integer;
liczba, suma:real;
begin
clrscr;
suma:=0;
il:=0;
repeat
il:=il+1;
write('Podaj liczbe nr ', il:4, ': ');
Read(liczba);
suma:=suma+liczba;
until il=6;
il:=il-1;
writeln('Suma liczb wynosi :', suma:5:2);
writeln('Ilosc liczb: ', il:4);
repeat until keypressed
end.