var a,b,c,d:integer;beginwriteln('Введите первое число'); readln(a);writeln('Введите второе число'); readln(b);c:= a * b;d:= a / b;writeln('Произведение чисел = ',c);writeln('Частное чисел = ',d);end. Я оч давно не писал на Pascal так что особо не уверен в том что написал,но проверь :D