program z_1;
var v1,v2,v3,t1,t2,t3,v:integer;
t:real;
begin
write ('Объём первого сосуда (v1) =  ');
readln (v1);
write ('Температура воды в первом сосуде (t1): ');
readln (t1);
write ('Объём первого сосуда (v2): ');
readln (v2);
write ('Температура воды в первом сосуде (t2): ');
readln (t2);
write ('Объём первого сосуда (v3): ');
readln (v3);
write ('Температура воды в первом сосуде (t3): ');
readln (t3);
v:=v1+v2+v3;
t:=(t1+t2+t3)/3;
write ('Полученный объём (v) = ',v,' л, температура смеси (t) = ',t,' *C');
end.