картинка
Объяснение:
var
i,s:integer;
begin
s:=0; i:=0;
repeat
s:=s+i;
i:=i+1;
until i>100;
writeln('s=',s);
end.
