Составьте программу, которая сравнивает два целых числа введенных с клавиатуры - положительное и отрицательное и выводит положительное число на экран
Var a,b:real; begin readln(a,b); if a<0 then<br>writeln(a); if b<0 then<br>writeln (b); end.