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;beginwriteln('введите2 числа');read(a,b);if(a>b) thenc:=a/belsec:=b/a;writeln('частное=',c)end.