Нужно составить алгоритм. введите с клавиатуры числа c и m. если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. иначе, найдите и выведите сумму c и m.

Program A3;
var
b,c,i,m:integer;
a:real;
begin
writeln('Vvedi C');
readln(c);
writeln('Vvedi M');
readln(m);
if c<m then if c>0 then begin a:=(c+m)/2;
writeln('srednee arifmet = ',a);
end
else writeln('summa = ',c+m);
end.