Program O1;
uses crt;
var a,x,y,p: real;
begin
clrscr;
write('a='); readln(a);
x:=ln(5);
y:=ln(abs(a*a+3))/ln(10);
p:=sin(abs((sqrt(x*x+1)-2)/(sqrt(y*y+1)+2)));
writeln ('x=',x:6:3);
writeln ('y=',y:6:3);
writeln ('p=',p:6:3);
readln;
end.
Пожалуйста помогите составить по этой задаче блок схему !)