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

// 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.

Тестовое решение
Введите краткое имя: Лена
Елена

1)Все просто 
Почему так? Все просто в левой части уравнения приведена формула времени за которое передастся файл размером 32*1024*8 (переводим в биты) и справа также приведена формула времени передачи файла размером x со скоростью 256 б/с. приравниваем одно к другому дальше выражаем x и просто считаем
получится x=16384 бита или 2048 байта.
2) Кбайт (надеюсь обьяснять как переводить из бит в байты Кбайты и т.д. не надо?)
3) также как и раньше сначала переводим всё в биты
375 Кбайт=375*1024*8 бит
и расчитываем по формуле v=s/t (аналогия из математики)
бит в секунду
4)также как и раньше только теперь t=s/v
секунд
5)точно такая же как и раньше только теперь s=vt ну и перевести в Кбайты не забудь  Кбайт

1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт 
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 Кбайт = 2 Кбайт 
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 Кбайт = 16 Кбайт
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт ≈ 0,000027 Мбайт
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт