program Letter;
 
procedure PrintAddress(address, fullName: string);
begin
	writeln(address);
	writeln(fullName); 
end;
 
procedure PrintGreeting(fullName: string);
var
  nameStart: integer;
begin
  nameStart := Pos(' ', fullName) + 1; // находит 1й пробел в строке и сохраняет символы после него
  writeln('Уважаемый(ая), ', Copy(fullName, nameStart, Length(fullName) + 1 - nameStart)); // выводит часть строки после 1го пробела
  writeln;
end;
 
procedure PrintInvitation;
begin
  writeln('Приглашаем Вас на "Акцию Добра",');
  writeln('которая будет проходить 10 марта по');
  writeln('адресу: г.Петропавловск-Камчатский,');
  writeln('Театральная пл. с 12:00 до 17:00');
end;
 
var
  address, fullName: string;
begin
  writeln('Введите адрес:');
  readln(address);
  writeln('Введите ФИО адресата:');
  readln(fullName);
  writeln;
 
  PrintAddress(address, fullName);
  PrintGreeting(fullName);
  PrintInvitation;
 
  readln;
end.

cHJvZ3JhbSBMZXR0ZXI7Cgpwcm9jZWR1cmUgUHJpbnRBZGRyZXNzKGFkZHJlc3MsIGZ1bGxOYW1lOiBzdHJpbmcpOwpiZWdpbgoJd3JpdGVsbihhZGRyZXNzKTsKCXdyaXRlbG4oZnVsbE5hbWUpOyAKZW5kOwoKcHJvY2VkdXJlIFByaW50R3JlZXRpbmcoZnVsbE5hbWU6IHN0cmluZyk7CnZhcgogIG5hbWVTdGFydDogaW50ZWdlcjsKYmVnaW4KICBuYW1lU3RhcnQgOj0gUG9zKCcgJywgZnVsbE5hbWUpICsgMTsgLy8g0L3QsNGF0L7QtNC40YIgMdC5INC/0YDQvtCx0LXQuyDQsiDRgdGC0YDQvtC60LUg0Lgg0YHQvtGF0YDQsNC90Y/QtdGCINGB0LjQvNCy0L7Qu9GLINC/0L7RgdC70LUg0L3QtdCz0L4KICB3cml0ZWxuKCfQo9Cy0LDQttCw0LXQvNGL0Lko0LDRjyksICcsIENvcHkoZnVsbE5hbWUsIG5hbWVTdGFydCwgTGVuZ3RoKGZ1bGxOYW1lKSArIDEgLSBuYW1lU3RhcnQpKTsgLy8g0LLRi9Cy0L7QtNC40YIg0YfQsNGB0YLRjCDRgdGC0YDQvtC60Lgg0L/QvtGB0LvQtSAx0LPQviDQv9GA0L7QsdC10LvQsAogIHdyaXRlbG47CmVuZDsKCnByb2NlZHVyZSBQcmludEludml0YXRpb247CmJlZ2luCiAgd3JpdGVsbign0J/RgNC40LPQu9Cw0YjQsNC10Lwg0JLQsNGBINC90LAgItCQ0LrRhtC40Y4g0JTQvtCx0YDQsCIsJyk7CiAgd3JpdGVsbign0LrQvtGC0L7RgNCw0Y8g0LHRg9C00LXRgiDQv9GA0L7RhdC+0LTQuNGC0YwgMTAg0LzQsNGA0YLQsCDQv9C+Jyk7CiAgd3JpdGVsbign0LDQtNGA0LXRgdGDOiDQsy7Qn9C10YLRgNC+0L/QsNCy0LvQvtCy0YHQui3QmtCw0LzRh9Cw0YLRgdC60LjQuSwnKTsKICB3cml0ZWxuKCfQotC10LDRgtGA0LDQu9GM0L3QsNGPINC/0LsuINGBIDEyOjAwINC00L4gMTc6MDAnKTsKZW5kOwoKdmFyCiAgYWRkcmVzcywgZnVsbE5hbWU6IHN0cmluZzsKYmVnaW4KICB3cml0ZWxuKCfQktCy0LXQtNC40YLQtSDQsNC00YDQtdGBOicpOwogIHJlYWRsbihhZGRyZXNzKTsKICB3cml0ZWxuKCfQktCy0LXQtNC40YLQtSDQpNCY0J4g0LDQtNGA0LXRgdCw0YLQsDonKTsKICByZWFkbG4oZnVsbE5hbWUpOwogIHdyaXRlbG47CgogIFByaW50QWRkcmVzcyhhZGRyZXNzLCBmdWxsTmFtZSk7CiAgUHJpbnRHcmVldGluZyhmdWxsTmFtZSk7CiAgUHJpbnRJbnZpdGF0aW9uOwoKICByZWFkbG47CmVuZC4=

0JDQtNGA0LXRgQrQmNCy0LDQvdC+0LIg0JjQstCw0L0g0JjQstCw0L3QvtCy0LjRhw==

Адрес
Иванов Иван Иванович