Program sum;
var i,x,n:integer;
sum:real;
begin
write('vyvedete n<=200);readln(n);
write('vyvedete x');readln(x);
s:=0;
if n<=200 then begin
for i=1 to n do
sum:=sum+x/i;
end
else write('Nekorektno vyvedeno n');
write('Sumata e',sum);
end.
Tova e i poslednata programa, dano ti svyrshat rabota