Вопрос пользователя:
Написать программу(в паскале), которая спрашивала бы сокращенное имя, а печатало полное для пяти ваших друзей. Ввод незнакомого имени должен провоцировать заявление типа “Я с Вами не знакома”.
Илюха отвечает:
var s:string;
BEGIN
writeln(‘Как вас зовут?’);
readln(s);
case s of
‘Вася’: s:=’Василий’;
‘Петя’: s:=’Петр’;
‘Люся’: s:=’Людмила’;
‘Миха’: s:=’Михаил’;
‘Пупс’: s:=’Пупондий’;
else s:=’Я с вами не знакома’;
end;
writeln(s);
readkey;
END.