А) Напишите процедуру, которая при заданных 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 ('введите первое число '); / /вводим первое число

readln (a);

write ('введите второе число '); / /вводим второе число

readln (b);

sr (a, b, n); / /вызываем процедуру

writeln ('среднее двух чисел = ', n); / /выводим ответ

//b)

writeln ('введите символ'); / /вводим любой символ

read (ch);

if ((ord (ch) >=65) and (ord (ch) <=90)) or / /проверяем на большую латинскую букву

((ord (ch) >=97) and (ord (ch) <=122)) / /проверяем на малую латинскую букву

then write ('это буква') else write ('это символ'); / /выводим ответ

end.