program raf105;
var
i: integer;
begin
for i:=50 to 57 do
writeln(i,' ');
end.
2.program raf105;
var
i,c,sum: integer;
sari: real;
begin
for i:=6 to 14 do
begin
sum:= sum+i*i;
c:= c+1;
end;
sari:= sum/c;
writeln('Среднее арифметическое: ',sari);
end.
3.program raf105;
var
i,n,sum: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
if i mod 2 = 0
then sum:= sum+i*i;
writeln('Сумма квадратов чётных чисел: ',sum);
end.
PascalABC 3.4.2
b = []
while len(b)!=10:
a = int(input())
if a < 1000:
b+=[a]
print(b) # [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]