Question

Составить диалог на тему "Получение посылки" на языке Pascal используя операторы "read" и "write".

Answer 1

Ответ:

program get_package;

var

 name: string;

 package_num: integer;

begin

 write('Добрый день! Как вас зовут? ');

 readln(name);

 writeln('Здравствуйте, ', name, '! Пожалуйста, введите номер вашей посылки:');

 readln(package_num);

 writeln('Спасибо, номер вашей посылки: ', package_num, '.');

 writeln('Ваша посылка готова к выдаче. Пожалуйста, предъявите документ, удостоверяющий личность, для получения посылки.');

 writeln('Спасибо за визит, приходите к нам еще!');

 readln;

end.

Объяснение: