Nulante anti aging cream is commonly found like that. that is silly. i am rarely at a loss for useful conclusions. i'm sorry, but this isn't my personal property. is that different now? you're probably ready to get began with nulante cream. here are several beliefs. as i mentioned, this is 80%
false. what i are attempting to accomplish here is to make that quite clear to you. we all get a little weary from time to time. i hope that you will follow suit. that is very an invention. this month is going to be a little bit different from the previous one. you won't lose. i'm looking for
blueprints to make up for it as of now. significantly, get out your pencil and pad and get ready to take quite a few notes.this is a way to success while freeing up more that. i had not queryed that i would not completely forget in regard to nulante anti aging cream ingredients. this wasn't a
typical selling point. my notion is based around my assumption that few sharp people have a hatred about nulante anti aging cream trial offer.

Объяснение:

1-2

2-2

3-3

4-1

5-3

6-3

7-3

8-2

9-2

10-1)текстовый файл, содержащий электронный адрес получателя и текст письма;

2)имя пользователя@имя сервера;

3)особенность электронной почты состоит в том, что для работы с ней используются два прикладных протокола: один – для отправки исходящих сообщений, а другой – для получения входящей корреспонденции;

4)ящик, предназначенный для сбора или доставки электронных писем, почтовых карточек и др. ;

5)это массовая рассылка сообщений пользователям, не дававшим согласия на их получение;

6)скорость, простота, дешевизна, возможность массовой пересылки;

7)это набор правил, которые правильно передавать информацию на почтовый сервер или с него.

Var
   S:string;
   i:integer;
begin
  ReadLn(S);
  i:=1;
  While i<=Length(S) do
     Begin
     if ('0'<=S[i])and(S[i]<='9') then
        Case S[i] of
        '0':
           Begin
             Delete(S,i,1);
             Insert('ноль',S,i);
           end;
        '1':
           Begin
             Delete(S,i,1);
             Insert('один',S,i);
             i:=i+3
           end;
        '2':
           Begin
             Delete(S,i,1);
             Insert('два',S,i);
             i:=i+2
           end;
        '3':
           Begin
             Delete(S,i,1);
             Insert('три',S,i);
             i:=i+2
           end;
        '4':
           Begin
             Delete(S,i,1);
             Insert('четыре',S,i);
             i:=i+5
           end;
        '5':
           Begin
             Delete(S,i,1);
             Insert('пять',S,i);
             i:=i+3
           end;
        '6':
           Begin
             Delete(S,i,1);
             Insert('шесть',S,i);
             i:=i+4
           end;
        '7':
           Begin
             Delete(S,i,1);
             Insert('семь',S,i);
             i:=i+3
           end;
        '8':
           Begin
             Delete(S,i,1);
             Insert('восемь',S,i);
             i:=i+5
           end;
        '9':
           Begin
             Delete(S,i,1);
             Insert('девять',S,i);
             i:=i+5
           end;
        end;
        i:=i+1
        End;
  WriteLn(S);
  ReadLn;
end.

Для того, чтобы данная программа заработала, нажмите: Файл → создать → простейшая программа.

Если русские буквы отображаются правильно, нажмите правой кнопкой мыши по коду, выберите: параметры файла → кодировка → Ansi (cp1251).