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

Program A3;varb,c,i,m:integer;a:real;beginwriteln('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;if c>m then writeln('summa = ',c+m);end.