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.