Помогите написать программы в паскале. Хоть что нибудь. 1) Даны радиус круга и…

var a,r: real; beginreadln (a,r); if a>2*r then writeln ('proidet') else writeln ('ne proidet'); end. var a: array[1… 100]of integer; s,i,n: integer; beginreadln (n); for i: =1 to n do readln (a[i]); for i: =2 to n-1 do beginif a[i]< (a[i-1]+a[i+1]) /2 then s: =s+1; end; writeln (s); end. function Fib (b: integer): integer; begin if (b <= 1) then Fib: =b else Fib: =Fib (b — 1)+Fib (b — 2); end; var a: integer; beginreadln (a); writeln (fib (a); end. var m,k: integer; beginreadln (m); k: =m div 4; writeln (k); end. var a: array[1… 10]of integer; i,n,k: integer; beginreadln (n); for i: =1 to n do readln (a[i]); for i: =1 to (n div 2) do begink: =a[n-i+1]; a[n-i+1]: =a[i]; a[i]: =k; end; for i: =1 to n do write (a[i],'); end.