что-то не работает((
Код:
program lab2;
var max,U,x,y,A,B,C:real;
begin
x:=1;
while x<=3
do begin
y:=2;
while y<=4
do begin
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos(((exp((2/3)*ln(y)))*(exp((1/3)*(x)))/sin((exp((2/3)*ln(y)))*(exp((1/3)*ln(x)))); (показывает, что в этой строке ошибка со скобками )
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5;end;
x:=x+1.3;
end;
readln;
end.