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