Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования.
var
s, n: integer;
begin
s := 50;
n := 1;
while s + n < 2500 do begin
s := s + 100;
n := n * 3
end;
writeLn(n - s)
end.