приделали это потом это крях-брях и всё готово
Var m:integer;
begin
write('m = '); readln(m);
case m of
1 : writeln('один бань');
5 : writeln('пять бань');
10: writeln('десять бань');
25: writeln('двадцать пять бань');
50: writeln('пятьдесят бань');
else writeln('недопустимое значение');
end;
end.
Пример:
m = 25
двадцать пять бань
1) Стиральная машина, 2)Холодильник, 3) Проигрыватель, любое техническое устройство. Человек не является формальным исполнителем. Но возможно. если он выполняет работу на конвеере