Создайте программу в Паскаль и блок-схему.

Var x,y:integer;L,M,N,min:real;BeginWriteln(введите значение y);Readln(y);x:=2*y;min=0;L:=x/y; Writeln(L=,L:2:2);M:=sin(x+y);Writeln(M=,L:2:2);N=sqrt(abs(x*y));Writeln(N=,L:2:2);If (Lgt;M) and (Mlt;N) then min:=M     else         If (Llt;N) and (Llt;M) then min:=L    else         If (Nlt;L) and (Nlt;M) then min:=N;Writeln(min=,min:2:2);readln;end.