Программа запрашивает 2 числа, а затем запрашивает чему равно их произведение.…

Program matem; uses crt; var c1,c2,res: integer; begin Write ('Введите первое число, с 1='); Readln (c1); Write ('Введите второе число, с 2='); Readln (c2); Write ('Введите произведение этих чисел, res='); Readln (res); If res=c1*c2 then Writeln ('Молодец') else Writeln ('Учи математику! '); end.