Помогите, пожалуйста, составить программу на Паскале по блок-схеме

[Salavat]

Помогите, пожалуйста, составить программу на Паскале по блок-схеме

надо составить программу на Паскали по блок схеме

 

[Vladimir_S]

надо составить программу на Паскали по блок схеме

А обязательно по этой идиотской блок-схеме? Вот так, например, нельзя?

Var
 R1,R2,x,y:real;

Begin
 Write('R1 = ');
 Readln(R1);
 Write('R2 = ');
 Readln(R2);
 Write(' x = ');
 Readln(x);
 Write(' y = ');
 Readln(y);
 Writeln('Area  I: ',(x>=0) and ((x*x+y*y)<=R1*R1) and (((x-R1)*(x-R1)+y*y)>=R2*R2));
 Writeln('Area II: ',((x*x+y*y)>R1*R1) and (((x-R1)*(x-R1)+y*y)<=R2*R2));
 Readln
End.