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

Задача а)// PascalABC.NET 3.1, сборка 1174 от 22.02.2016var  a,b:real;procedure WriteAvg;begin  Writeln('Среднее= ',(a+b)/2)end;begin  Write('a,b='); Read(a,b);  WriteAvgend.Тестовое решение:a,b=6 4.9Среднее= 5.45Задача б)// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var c:=ReadlnChar('Введите символ:');  if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')  else    if c in ['0'..'9'] then Writeln('цифра')    else Writeln('спецзнак')end.Тестовое решение:Введите символ: iбуква