Программа запрашивает 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.

Program legko;
Uses CRT;
Var a,b,p:integer
Begin
ClrScr; {очистка экрана}
Writeln("Введите два целых числа по очереди");
Readln(a,b);
Writeln("теперь введите их произведение");
Readln(p);
If (p=a*b) then writeln("Молодец");
Else writeln("Учи математику");
Readkey;
End.