writeln(' Исполнитель: Иванов И.И. группа МА-81');

write('Введите число A:');

readln(r);

write('Введите число B:');

readln(n);

z := r + n;

write('A + B = ');

writeln('-----------------------------------------	');
writeln(z);
writeln('-----------------------------------------	');
readln;
end.

Упражнение 4

Цель

Изучить структуру простой программы.

Текст программы

program test; uses crt;

begin clrscr;

writeln('Программа выводит приветствие на экран.'); writeln('Исполнитель: Иванов И.И. группа МА-81'); writeln('Привет от ФЛА');

readln;

end.