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

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