Program GOVNO;
var c,Q,m,t1,t2:integer;
x1,x2,x3:integer;
begin
writeln ('введите значение Q');
readln (Q);
writeln ('введите значение m');
readln (m);
writeln ('введите значение t1');
readln (t1);
writeln ('введите значение t2');
readln (t2);
x1:=Q;
x2:=m;
x3:=t2-t1;
c:=x1/(x2*x3); <= Проблема здесь

end.

Program1.pas(16) : Нельзя преобразовать тип real к запустить программу