Программа запрашивает 2 числа,а затем запрашивает чему равно их произведение.если ответ явный ,то "молодец",если нет,то "учи " в паскале надо делать, )

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.

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.

"1 + 1 * 4 * 4 = 32" "1 * 4 + 1 + 1 + 1 + 1 * 4 = 32" "1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 * 4 = 32" "1 * 4 + 1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 + 1 + 1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 = 32" "1 * 4 + 1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 + 1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 * 4 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 * 4 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 * 4 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" "1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 32" 15 всего