Программы в паскале. 1)напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введенных с клавиатуры.примеры: 4+5+7=16; 4*5*7=140; (4+5+7)/3=5.333. 2)напишите программу, которая вводит радиус и вычисляет его площадь и длину окружности.примеры: радиус 5; площ. и длин.окр. 78.540, 31.416 3)напишите программу, которая вводит два целых числа, а и b(а

1)
var a,b,c:integer;
begin
readln(a,b,c);
writeln(a,'+',b,'+',c,' = ',a+b+c);
writeln(a,'*',b,'*',c,' = ',a*b*c);
writeln('(',a,'+',b,'+',c,')/3 = ',(a+b+c)/3:5:3);
end.

Пример:
4 5 7
4+5+7 = 16
4*5*7 = 140
(4+5+7)/3 = 5.333

2)
var r:integer;
begin
readln(r);
writeln('S = ',pi*r*r:5:3);
writeln('C = ',2*pi*r:5:3);
end.

Пример:
5
S = 78.540
C = 31.416

3)
var a,b,i:integer;
begin
readln(a,b);
for i:=1 to 5 do
 write(random(b-a+1)+a,' ');
end.

Пример:
0 100
8 1 86 54 60

// F#
[<EntryPoint>]
let main argv =
    let generateMatrix n m =
        let rnd = System.Random()
        Array2D.init n m (fun i j -> rnd.Next(10))
    let inputArray = generateMatrix 5 6
    printf "array: \n%A\n" (inputArray)
    let maxIndex =
        [1..Array2D.length1 inputArray]
        |> Seq.map (fun row -> (row, inputArray.[row-1, *] |> Seq.sum))
        |> Seq.maxBy (fun (i, sum) -> sum)
        |> fst
    printf "max index: %d" maxIndex
    System.Console.ReadKey true |> ignore
    0    

Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;

begin;
for m:=1 to 12 do
begin
     write('В месяц ',m,' температура t = ');
     readln(a[m]);
end;

s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;

writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);

end.