Определите число: которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)var n,s: integerbeginn:=0;s:=402;while s>0 dobegins:=s-10;n:=n+3end;write(n)end.