Var a,b,c:real; begin read(a,b); writeln ('введите2 числа') var(a больше b) do c:=a/b else c:=b/a writeln('частное='c) end. пишет ожидался оператор

1. Сначала следует запрос на числа, т.е. нужно вывести строку. Затем вводятся сами числа. 2. Условный оператор записывается как "if условие then оператор1 else оператор2". Все, что после оператор1 можно отбросить. Var a,b,c:real; begin writeln('введите2 числа'); read(a,b); if(a>b) then c:=a/b else c:=b/a; writeln('частное=',c) end.