А)Напишите функцию,которая при заданных a,b выводит среднее число (используя при этом

program zz1;
var a,b:integer; n:real;//задаем глобальные переменные
ch:char;
procedure sr(a,b:integer;var n:real);
begin
n:=(a+b) / 2;
end;
begin
//a)
write(введите 1-ое число ); //вводим 1-ое число
readln(a);
write(введите второе число ); //вводим 2-ое число
readln(b);
sr(a,b,n); //вызываем функцию
writeln(среднее 2-ух чисел = ,n); //выводим ответ
//b)
writeln(введите знак); //вводим любой знак
read(ch);
if ((ord(ch)gt;=65)and(ord(ch)lt;=90))or //проверяем на большую латинскую букву
((ord(ch)gt;=97)and(ord(ch)lt;=122)) //проверяем на малую латинскую буковку
then write(это буковка) else write(это знак); //выводим ответ

end.