ПОМОГИТЕ ДЗ,ВЫХОДИТ 2 ЗА ЧЕТВЕРТЬ
War a, b, x:real begin write(a,b) if (a>b) then x:=a*b else x:=a-b println(x) end
от души