Написать программу ввода с клавиатуры значения радиуса круга и вывода на экран значения площади круга

// f# open system; [< entrypoint> ] let main argv =     let maybenumber = console.readline()     let value = double.parse maybenumber     let result = math.pi * value * value     printf "%f" result     console.readkey true |> ignore     0

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 9; var   x: array[1..n, 1..n] of real;   y: array[1..n*(n-1) div 2] of real;   i, j, k: integer;   max, min, d: real; begin   randomize;   {clrscr; }   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to n do       begin           x[i, j] : = 100*random - 50;           write(x[i, j]: 4: 0)       end;       writeln   end;   { 1 }   k: =0;   for i: =2 to n do       for j: =1 to i-1 do           if x[i,j]< 0 then begin inc(k); y[k]: =x[i,j] end;   writeln('сформированный одномерный массив');   for i: =1 to k do write(y[i]: 4: 0);   writeln;   { 2 }   max: =y[1]; min: =max;   for i: =2 to k do       if y[i]> max then max: =y[i]       else           if y[i]< min then min: =y[i];   d: =max-min;   i: =1;   while (abs(y[i])< =d) and (i< =k) do inc(i);   if i< =k then       begin d: =y[1]; y[1]: =y[i]; y[i]: =d end;   writeln('результирующий одномерный массив');   for i: =1 to k do write(y[i]: 4: 0);   writeln;   {readkey} end. тестовое решение: исходный массив   37 -45 -17 -26  -6 -22  -1 -33  -3   -27  33 -15 -14  33  37  28 -12 -36     1  14  48  -2 -43  -1  17  34  -7   -11  45  -5 -16  32  -8  32  -1 -40   18  43 -13 -28  30  45  44 -38 -28   38    0  10  48  28 -43 -12 -29 -44     2 -11  48  33    7  10  35 -40 -28   -48  39 -49  42    5 -16  26 -40  -5   27 -21  34 -46    4  45 -22  29 -16 сформированный одномерный массив   -27 -11  -5 -13 -28    0 -11 -48 -49 -16 -21 -46 -22 результирующий одномерный массив   -49 -11  -5 -13 -28    0 -11 -48 -27 -16 -21 -46 -22

Sub aaa()       dim i as integer, j as integer, d       redim q(1 to 3, 1 to 2)       for i = 1 to 3               for j = 1 to 2                       q(i, j) = inputbox("введите элемент (" + str(i) + "," + str(j) + ")")               next j       next i       cells(1, 1).value = "исходный массив"       range(cells(2, 1), cells(4, = q       cells(5, 1).value = "результирующий массив"       for i = 1 to 3               if q(i, 1) > q(i, 2) then                       d = q(i, 1): q(i, 1) = q(i, 2): q(i, 2) = d               end if       next i       range(cells(6, 1), cells(8, = q end sub