{* Задача 70 *}

Unit ZADACH70;
Interface
Implementation
Begin
 writeln('Составьте прогу, выдающую письма стандартной формы, адресованные разным людям. От письма к письму должны меняться только фамилия и адрес, поэтому для пнчати писем примените подпрограмму, получающую эти данные из основной программы в качестве параметров. ');
End.

Program pas0;

Uses zadach70.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  FIO                     : String;
  Adres                   : String;
Procedure OutLetter(FIO : String);
Adres                   : String);
cEndLetter              : Array [1..LenLetter] Of String = (      '   Просим Вас прибыть к 10;
Var {* Объявление переменных *}
  i : byte;
Begin
  writeln(cStartLetter + FIO);
  writeln(cMiddleLetter);
  writeln(' ' + Adres);
  For i := 1 To LenLetter Do {* Увеличиваем i от 1 до LenLetter с шагом 1 *}
    writeln(cEndLetter[i]);
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  Repeat      writeln('Введите ФИО');
    readln(FIO);
  writeln('Введите адрес');
  readln(Adres);
  OutLetter(FIO, Adres);
  Until FIO = ''
End.