Паскаль програма знаходження середнього арифметичного двох чисел
Var a,b:integer; begin read(a,b); write((a+b)/2); end.