Помогите решить задачу в Pascal. Что не так?

Помогите решить задачу в Pascal.Что не так?
Program Fizika;
var V1,V2,t1,t2,V,t:real;
Begin
writeln ('vvedite V1 i V2');
readln (V1,V2);
V:=V1=V2;
writeln ('vvedite t1 i t2');
readln (t1,t2);
t:=((V1*t1)+(V2*T2))/(V1+V2);
End.

  • Какое условие задачи? Зная код, но не зная условия, тяжело найти ошибку. Тут скорее всего ошибка в 6 строчке. В паскале на сколько я помню так нельзя присваивать.
  • Присваивайте значения переменным по отдельности.
  • V:=V1=V2;
    такое в паскале не катит, нужно по отдельности присваивать значения
  • Тут я так понял что вы пытаетесь, сделать вычисления из уравнения теплообмена: t*(V1 + V2) = V1*T1 + V2*T2 откуда
    t = (V1*T1 + V2*T2)/(V1 + V2)
    соответственно программу вы практически правильно написали, пару ошибок поправил только:
    Program Fizika;
    Uses
    Crt;
    Var
    V1,V2,t1,t2,t : Real;
    Begin
    clrscr;
    writeln ('vvedite V1 i V2');
    readln (V1,V2);
    writeln ('vvedite t1 i t2');
    readln (t1,t2);
    t := (V1*t1+V2*T2)/(V1+V2);
    writeln('Temperature = ',t:-10:2);
    readln;
    End.