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

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.