Программа запрашивает 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:integerBeginClrScr; {очистка экрана}Writeln("Введите два целых числа по очереди");Readln(a,b);Writeln("теперь введите их произведение");Readln(p);If (p=a*b) then writeln("Молодец");Else writeln("Учи математику");Readkey;End.