Автор - vania6101
Программа должна выглядеть таким образом:
Var n, s: integer;
Begin
N := 4;
S := 0;
While n<= 13 do
begin
S := s +15 ;
N := n+1 ;
End;
Write (s);
End.
После завершения программы будет выведено 150