Напишите программу, которая спрашивала бы сокращенное имя, а печатала полное для пяти ваших друзей. Ввод незнакомого имени должен провоцировать заявление типа «Я С ВАМИ НЕЗНАКОМА

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 begin   var names:array[1..2,1..5] of string:=     (('Саша','Женя','Таня','Лена','Вася'),     ('Александр','Евгений','Татьяна','Елена','Василий'));   var name:=ReadlnString('Введите краткое имя:');   var p:=0;   for var i:=1 to 5 do     if name=names[1,i] then begin p:=i; break end;   if p>0 then Writeln(names[2,p])   else Writeln('Я вас не знаю!') end. Тестовое решение Введите краткое имя: Лена Елена