Складить програму, що знаходить значеня S для формули S=πR^2*(∂π*2) /∂π. Складить…

1) vars,r: real; beginreadln (r); s: =3,14*r*r; writeln (s: 8:2); end. 2) vara,b,c: integer; beginreadln (a,b,c); if a>b thenif a>c then writeln (a, ' — большее') else writeln (c, ' — большее') elseif b>c then writeln (b, ' — большее') else writeln (c, ' — большее'); end.3) varn: integer; beginreadln (n); case n of15: writeln ('фосфор'); 16: writeln ('сера'); 17: writeln ('хлор'); 18: writeln ('аргон'); 19: writeln ('калий'); 20: writeln ('кальций'); 21: writeln ('скандий'); 22: writeln ('титан'); 23: writeln ('ванадий'); 24: writeln ('хром'); 25: writeln ('железо'); 27: writeln ('кобальт'); 28: writeln ('никель'); 29: writeln ('медь'); 30: writeln ('цинк'); else writeln ('выход за пределы диапазона 15-30'); end; end.4) vara: array[1… 30] of integer; i,s: integer; begins: =0; for i: =1 to 30 dobegina[i]: =random (50); write (a[i]: 3); if i mod 5=0 then s: =s+a[i]; end; writeln; writeln ('s=',s); end.