Вот вроде бы правильно сделано )
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"
Это система обмена данными между ЭВМ
В основном различают такие сети: нательная (типа фитнес браслета), персональная (один владелец разных устройств), локальная, кампусная, городская, корпоративная, всемирная