с решением пожалуйста : запишите число которое будет напечатано в результате

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