Пример программы

Пример программы, которая осуществляет сложение двух чисел и выводит сумму на экран:

Program Summa;

Uses

Crt;{Подключаем модуль Crt}

Var

number1, {переменная, в которой будет содержаться первое число} number2, {переменная, в которой будет содержаться второе число} rezult {переменная, в которой будет содержаться результат}

:integer; {указывает тип целых чисел} Begin

ClrScr;{Используем процедуру очистки экрана из модуля Crt} Write ('Введите первое число ');

{Выводим на экран символы, записанные между апострофами} Readln (number1);

{Введенное пользователем число считываем в переменную number1} Write ('Введите второе число ');

{Выводим на экран символы, записанные между апострофами} Readln (number2);

{Введенное пользователем число считываем в переменную number2} rezult := number1 + number2;

{Находим сумму введенных чисел и присваиваем переменной rezult} Write ('Сумма чисел ', number1, ' и ', number2, ' равно ', rezult);

{Выводим на экран строчку, содержащую ответ задачи} Readln;{Процедура задержки экрана}

End.