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

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  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.Тестовое решениеВведите краткое имя: ЛенаЕлена