Поделитесь своими знаниями, ответьте на вопрос:
Написать текст программы на языке Паскаль. Ввод и вывод данных в программе должны сопровождаться поясняющими сообщениями (например, “Введите радиус: ” и “Длина окружности = ” В программе использовать стандартные функции
uses crt;
var detal:integer;
begin
writeln('Введите номер детали в списке');
read(detal);
case detal of
1 :writeln('деталь соответствующая списку : шуруп');
2 :writeln('деталь соответствующая списку : гайка');
3 :writeln('деталь соответствующая списку : винт');
4 :writeln('деталь соответствующая списку : гвоздь');
5 :writeln('деталь соответствующая списку : болт');
else writeln('детали под таким номером нет в списке');
end
end.
Объяснение: