Составить алгоритм и программу для решения найдите длину окружности l и площадь круга s если известно что его радиус равен r

Program wtf; var  s,l,pi: real; r: integer; begin  writeln  ('введите  r'); readln (r); pi: =3.14; l: =2*pi*r; s: =2*pi*r*r; writeln('длина  окружности=  ',l); writeln('площадь  окружности=  ',s); end. pi- это число пи ( ) оно  является  константой  и примерно  равно 3.14

№1 var a, s1,s2,s3: real;   begin  writeln('введите длину грани куба');   read(a);   s1: =a*a;   s2: =6*a*a;   s3: =a*a*a;   writeln('площадь грани куба =',s1);   writeln('площадь полной поверхности куба = ',s2);   writeln('объем куба =',s3);   end. №2var a: real;   begin  writeln('введите чилсо а');   read(a);   writeln('первая степень числа =',a);   writeln('вторая степень числа =',a*a);   writeln('третья степень числа =',a*a*a);   writeln('четвертая степень числа =',a*a*a*a);   end.

Код pascal. const  n = 10; var      a: array[1..n] of integer;       i, c: integer; begin      i : = 0;       while 1 = 1 do    begin          if i = 10 then break;           readln(c);           if (c < = 29) and (c > = -20) then begin              inc(i);               a[i] : = c;           end else writeln('число выходит за границы');     end;       writeln('готово');       readln; end.вродь как-то так