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