Question

вычислить периметр треугольника. Если он больше 20, то напечатать слово "Хорошо", иначе напечатать слово "Отлично"
паскаль

Answer 1

вроде работает

var a, b, c, P: real;

begin


writeln ('vvedite storoni');
readln ( a, b, c);
P:= a + b + c;

if P > 20 then begin
writeln (' horosho');
end
else begin 
writeln ('otlichno');
end;

end.