Ramzey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code=pas]
USES Crt;
VAR
FIO,Adres : string;
procedure OutLetter(FIO,Adres : string);
const
LenLetter = 10;
cStartLetter = 'Уважаемый(ая)';
cMiddleLetter = 'Проживающая по адресу';
cEndLetter : array [1..LenLetter] of string= (
' Просим Вас прибыть к 10:00 01.01.2007',
'в прокуратуру Южного округа г. Москвы,',
'для дачи показаний по делу пропажи двух',
'коробков спичек в одном из супермаркетов',
'Вашего района.',
' При себе иметь смену нижнего белья',
'бритвенные пнадлежности, запас сигарет и',
'нескоропортящихся продуктов.',
'С уважением, ст. следователь прокуратуры',
'советни 1-й статьи Иванов И. И.');
var
i : byte;
begin
writeln(cStartLetter+FIO);
writeln(cMiddleLetter);
writeln(' '+Adres);
for i:=1 to LenLetter do writeln(cEndLetter[i]);
end;
BEGIN
clrscr;
repeat
writeln('Введите ФИО');
readln(FIO);
writeln('Введите адрес');
readln(Adres);
OutLetter(FIO,Adres);
until FIO=''
END.
[/code]
|
Всего записей: 11 | Зарегистр. 10-12-2006 | Отправлено: 11:58 17-12-2006 | Исправлено: Ramzey, 15:28 17-12-2006 |
|
