как это написать на паскале, подскажите, пожалуйста Дано целое n>1 и числа. Вычислить сумму половины этих чисел.

var n,a:real;
begin

write('n: ');

readln(n)

write('a: ');

readln(a);

if n>1 then n:=(n+a)/2;

writeln(n);

readln

end.