Program v pascale

program Zadanie1;
uses crt;
const N=5;
type Pole=array[1..N] of real;
var
   
   k,i: integer;
   P: Pole;
priemer: real;
sucet: real;

begin
clrscr;
k:=10;
writeln('Zadavajte 5 cisel, lubovolnej hodnoty, posledne cislo musi byt ',k,': ');

repeat
for i:=1 to N do
   begin
   write('Zadajte cislo ',i,': ');
   readln(P[i]);
        end;
until P[5]=k;

priemer:=0;
sucet:=0;

for i:=1 to N do
     begin
     sucet:=sucet_znamok+P[i];
     priemer:=sucet/N;
     end;
clrscr;
writeln('Sucet nacitanych cisel je: ',sucet);
writeln('Priemerna hodnoty cisel je: ',priemer);

end.

program Sucet;
Uses sysutils;

var
  x: string;
  a: integer;
  s: integer;
  K:integer;
  count: integer;


begin

s:=0;
count:=0; 


repeat
   
   writeln('zadaj cislo');
   readln(x);
     if (x<>'K') then
      begin
         a:=StrToInt(x);
         s:=s+a;
         count:=count+1;
      end;
 
until (x='K');

writeln('Pocet nac.hodnot: ',count,' Sucet: ', s, ' Priemer: ',(s/count):5:2);

readln();
end.

repeat
for i:=1 to N do
   begin
   write('Zadajte cislo ',i,': ');
   readln(P[i]);
        end;
until P[5]=k;