Составе программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае

Var
   a,b:real;
Begin
Write(Введите два числа: );ReadLn(a,b);
if (a gt; 0)and(b gt; 0) then Write(Sr = ,(a+b)/2)
else Write(Sum = ,a+b)
End.