Нельзя преобразовать тип real к integer Program primer; Var a,b,s,m,d: integer; Begin; Readln (a,b,s,m,d); s:=a+b; m:=a*b; d:=(a/b); Writeln(s); Writeln(m); Writeln(d); End.
Тебе дает ошибку потому что результат деления - имеет тип REAL. d:=(a/b); поэтому определи переменную var d:real;