Mam do napisania schemat blokowy do programu jak ktoś mógłby pomóc ?
var a,b,c,i,j: integer;
x,y,z: real ;
begin
readln(x,y,a,b,c) ;
if (a<10) then b:=a+10 ;
for i:=0 to 5 do begin
z:=0;
while (true) do begin
z :=exp (sin(x)+ arctan(y) *exp (x+y)) ;
j :=trunc (z) ;
if (j<10) then break;
end ;
repeat
inc (a,2) ;
y :=b/c;
if (y> 5.1) then b :=a-15
else if (y<0) then c := a+15
else a := 10;
until ((a<10) and (b<a) and (c>a)) ;
end ;
end.