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