Написать программу(в паскале), которая спрашивала бы сокращенное имя, а печатало полное...

Question

Написать программу(в паскале), которая спрашивала бы сокращенное имя, а печатало полное для пяти ваших друзей. Ввод незнакомого имени должен провоцировать заявление типа "Я с Вами не знакома".

Answer 1

var s:string;
BEGIN
  writeln('Как вас зовут?');
    readln(s);
    case s of
      'Вася': s:='Василий';
      'Петя': s:='Петр';
      'Люся': s:='Людмила';
      'Миха': s:='Михаил';
      'Пупс': s:='Пупондий';
        else s:='Я с вами не знакома';
    end;
    
    writeln(s);
    readkey;
END.