Program z1; var a,b,c:real; begin writeln('введите 2 числа'); readln(a,b); if(a>b)then c:=a/b; writeln(c); else (c:=b/a; writeln(c);) end. где ошибка
Program z1; var a,b,c:real; begin writeln('введите 2 числа'); readln(a,b); if (a>b) then c:=a/b else c:=b/a; writeln(c); end.