Решите пожалуйста!!!

Question

Решите пожалуйста!!!

---

Answer 1

var

s,t,s1,t1:real;

begin

Writeln('Введите s1 и t1');

Readln(s1,t1);

s:= s +s1; t:= t + t1;

Writeln('Введите s2 и t2');

Readln(s1,t1);

s:= s +s1; t:= t + t1;

Writeln('Введите s3 и t3');

Readln(s1,t1);

s:= s +s1; t:= t + t1;

t:= t / 60;

Writeln(s/t)

end.