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