Program Proizv2;

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.

Чтобы лучше понять действие программы, наберите ее на компьютере и проверьте ее действие. Ответьте на вопросы:

• почему программу назвали Proizv2?

• зачем в раздел Uses поместили модуль Crt?

• какое назначение переменных number1, number2, rezult?

• какой тип у этих переменных? что это значит?

• если присвоить переменным number1 и number2 соответственно значение 5 и 7, то какую строчку выдаст компьютер при исполнении последней процедуры Write? Запишите ее в тетрадь.

• в каких строчках у пользователя запрашиваются значения переменных?

• в какой строчке происходит умножение чисел?

• что делает оператор присваивания в этой программе?

Задание. Измените программу так, чтобы она запрашивала у пользователя еще одну переменную и выводила результат произведения трех чисел.