Question

Решить алгоритм. Задумайте два целых числа, вычислите произведение чисел. Сравните « найденное произведение равно 100» Если ДА-сообщить равно и сделать команду 5, если НЕТ-сделать команду 5. Закончить выполнение алгоритма

Answer 1

program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.