1 var s, n: integer;
begin
s := 25;
n := 0;
while 400 < s*s do begin
s := s - 1;
n := n + 3
end;
writeln(n);
end.

В цикле указано, что пока S не станет меньше 400, будет отниматься 1 от S и прибавляться 3 к N, в итоге будет выведено 15.