Задание

Определите, что будет напечатано в результате работы фрагмента программы.
var k, s: integer;
begin
s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write\(s\);
end.

  • 165
  • 124
  • 155