Код:

program z1;
var a:array [1..20] of real;
k,i,o,r:integer; s:real;
 begin
 writeln ('BBeguTE 4ucJIa');
 for i:=1 to 20 do
begin
 readln (a[i]);
 
 writeln ('BBeguTE koJI-Bo OTpuu,-x 4uceJI');
 readln (k);
 end;
 for i:=1 to 20 do
 begin
 if a[i]<0 then a[i]:=o;
 end;
 for i:=1 to k do    //тут мей би лажа
 s:=s+o;
 write ('summa=',s:4:2);
 readln;
 end.

и вообще за верность не отвечаю
Я давно не видел паскаль