Ответ: программа выдаст 150, если в ней исправить ошибки. Текст исправленной программы представлен ниже:
var
n, s: integer;
begin
N := 4;
S := 0;
While n<= 13 do begin
S := s +15;
N := n+1;
End;
Write (s);
end;
P(треуг.) = a + b + c
P = 5 + 2 + 3
P = 10
Ответ : P = 10