1 я не понял но 2 - ое это замороженной но 4 в мягком прости если это глупые ответы я еще не делал информатику
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Ответ:
Есть программа FCEditor, рисует блоксхемы по коду в Pascal
Объяснение: