По названию технологической операции определить, к какому виду технологического воздействия она относится - Pascal

Формулировка задачи:

Составить программу, которая по названию технологической операции выдавала бы сведения о том, к какому виду технологического воздействия она относится: точение, фризерование, шлифование, хонингование - обработка резанием; сварка, пайка, клепка, запрессовка - сборочные операции.

Решение задачи: «По названию технологической операции определить, к какому виду технологического воздействия она относится»

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

  Write('Операция: '); ReadLn(s);
  case s of
  'точение', 'фрезерование', 'шлифование', 'хонингование':
    WriteLn('обработка резанием');
  'сварка', 'пайка', 'клепка', 'запрессовка':
    WriteLn('сборочная операция');
  else
    WriteLn('неизвестная операция');
  end;

Объяснение кода листинга программы

Вводится название технологической операции в переменную s с помощью функции ReadLn.
Выполняется проверка значения переменной s с использованием оператора case.
Если значение s соответствует одному из вариантов: 'точение', 'фрезерование', 'шлифование' или 'хонингование', выводится сообщение обработка резанием.
Если значение s соответствует одному из вариантов: 'сварка', 'пайка', 'клепка' или 'запрессовка', выводится сообщение сборочная операция.
В противном случае, если значение s не соответствует ни одному из указанных вариантов, выводится сообщение неизвестная операция.