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

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