Задача 1. Дано число от 2 до 5 вывести наименования оценок

Дано число от 2 до 5 вывести наименования оценок.

Список используемых переменных

А-вводимая оценка;

Алгоритм решения задачи

1. Ввести оценку;

2. Вывод наименования оценки;

Рис.1-Блок схема алгоритма

Листинг программы.

program primer1;

var A:integer;

begin

writeln('введите оценку’);

readln(A);

CASE A of

2:writeln('неудовлетворительно');

3:writeln('удовлетворительно');

4:writeln('хорошо');

5:writeln('отлично');

ELSE writeln('ошибка ');

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

end;

end.