Question

Сделайте программу по инфе!!!!!!пж,Срочно:Ввести 4 числа и найти среднее арифметическое первых двух и последних двух.​

Answer 1

program prog;

var a, b, c, d: integer;

var ab, cd: double;

begin

 read(a);

 read(b);

 read(c);

 read(d);

 ab:=(a+b)/2;

 cd:=(c+d)/2;

 writeln(ab);

 writeln(cd);

end.