Найти произведение значений двух переменных и вывести на экран

Если на pascal, то: program qq;   var a,b: integer; begin   write('введите значение 1 переменной:   ');   read(a);   write('введите значение 2 переменной:   ');   read(b);   write('произведение двух переменных  ',a,'  и  ',b,'  равно:   ',a*b); end.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.