с решением пожалуйста : запишите число которое будет напечатано в результате выполнения программы
var n, s:integer;
begin
n:=0;
s:=0;
while s<=325 do
begin
s:=s+10;
n:=n+3
end;
write(n)
end.