Составить блок-схемы к двум задачам:

var rm,rb,sm,sb,so:real;
begin 
writeln('Вычисление площади кольца. ');
begin 
writeln('Введите исходные данные: ');
write('Радиус кольца(см) и радиус отверстия (см): ');
repeat
readln(rm,rb);
sm:=3.14*rm*rm;
sb:=3.14*rb*rb;
so:=sb-sm;
if so >= 0 then 
writeln('Площадь кольца равна: ',so:3:3) 
else 
write('Ошибка! Радиус отверстия не может больше радиуса кольца! Введите исходные данные корректно: ');
until so>=0;
end;
end.

var i,n:integer; 
s,p:real; 
begin 
write('Введите кол-во членов ряда');readln(n);
s:=0; 
p:=1; 
for i:=1 to n do 
begin 
s:=s+sin(i); 
p:=p*sin(i); 
end; 
writeln('Цикл с параметром'); 
writeln('сумма равна: ',s:0:4); 
writeln('произведение равно: ',p:0:4); 
writeln('-------------'); 
writeln('Цикл с предусловием'); 
s:=0; 
p:=1; 
i:=1; 
while i<=n do 
begin 
s:=s+sin(i); 
p:=p*sin(i); 
i:=i+1; 
end; 
writeln('сумма равна: ',s:0:4); 
writeln('произведение равно: ',p:0:4); 
writeln('-------------'); 
writeln('Цикл с постусловием'); 
s:=0; 
p:=1; 
i:=1; 
repeat 
s:=s+sin(i); 
p:=p*sin(i); 
i:=i+1; 
until i>n; 
writeln('сумма равна: ',s:0:4); 
writeln('произведение равно: ',p:0:4); 
end.