Напишите 3 программы на языке Паскаль

250р

Третья
var i,n:integer;a,s:real;
begin
write('a N:');
readln(a,n);
s:=0;
for i:=1 to n do
s:=s+a*i*i*i+2;
writeln(s)
end.

цена вопроса

50 21 48 88 72 98 5 75 67 79
maksim.4islo = 98
-----------------
51 16 25 83 72 62 88 16 33 22
maksim.4islo = 88
-----------------
45 67 40 49 12 45 96 35 10 5
maksim.4islo = 96
-----------------
30 66 38 81 95 67 76 64 75 63
maksim.4islo = 95
-----------------
95 94 58 26 7 100 35 29 15 51
maksim.4islo = 100
-----------------
79 100 22 99 58 50 35 90 17 8
maksim.4islo = 100
-----------------
45 17 90 51 91 92 48 51 1 63
maksim.4islo = 92
-----------------
70 79 51 29 33 51 79 41 34 61
maksim.4islo = 79
-----------------
88 86 17 93 26 38 88 19 52 69
maksim.4islo = 93
-----------------
29 53 7 58 86 96 57 98 16 82
maksim.4islo = 98
-----------------
53 20 49 17 15 8 89 10 21 63
maksim.4islo = 89
-----------------
35 42 42 72 14 32 18 38 61 84
maksim.4islo = 84
-----------------
79 87 33 30 6 71 17 97 74 85
maksim.4islo = 97
-----------------
6 37 54 71 34 48 61 52 11 85
maksim.4islo = 85
-----------------
67 87 74 16 45 86 98 99 55 2
maksim.4islo = 99
-----------------
45 22 17 53 5 12 67 68 84 21
maksim.4islo = 84
-----------------
47 27 39 88 54 16 63 65 4 45
maksim.4islo = 88
-----------------
80 37 38 17 54 65 33 18 14 18
maksim.4islo = 80
-----------------
48 47 38 43 60 4 10 24 54 42
maksim.4islo = 60
-----------------
17 40 13 66 7 32 82 48 17 51
maksim.4islo = 82
-----------------
18 50 7 19 6 68 27 60 4 41
maksim.4islo = 68
-----------------
82 79 20 94 6 9 49 78 61 45
maksim.4islo = 94
-----------------
29 9 80 78 26 46 6 10 15 48
maksim.4islo = 80
-----------------
73 59 49 24 81 10 93 30 78 98
maksim.4islo = 98
-----------------
11 42 66 86 25 7 80 50 41 59
maksim.4islo = 86
-----------------
58 73 25 77 16 56 30 19 41 46
maksim.4islo = 77
-----------------
9 81 81 75 78 12 93 43 84 86
maksim.4islo = 93
-----------------

ЭТО ПЕРВОЕ:
var
max,k,i:integer;
begin
writeln ('Введите 10 чисел');
max:=0;
for i:=1 to 10 do
begin
readln (k);
if k>=max then max:=k
end;
writeln ('Максимальное число --> ', max);
end.

ЭТО ВТОРОЕ:
var
min,k,i:integer;
begin
writeln ('Введите 20 оценок');
min:=0;
for i:=1 to 20 do
begin
readln (k);
if k<4 then min:=min + 1
end;
writeln ('Количество неудовлетворительных оценок --> ', min);
end.
Ну а как написать последнее я понятия не имею я даже не знаю что это вообще такое