Составьте к ней условие задачи
Program nom5;
Var x : integer;
Begin
Writeln ('введите оценку');
Readln (x);
IF x=3 then Writeln ('удовлетворительно')
Else
IF x=4 then Writeln ('хорошо')
Else
IF x=5 then Writeln ('отлично');
Readln ;
End.

1mizik1    2   17.04.2020 16:10    1