Question

Запишите число, которое будет напечатано в результате выполнения следующей программы:

var n, s: integer;

begin

n := 1;

s := 0;

while n <= 650 do begin

s := s + 20;

n := n * 5

end;

write(s)

end.