program raf105;
var i,n:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
writeln('7');
end.
var
i: integer;
pro: real;
pro:= 1;
for i:=1 to 20 do
pro*= i;
writeln('Произведение первых 20 чисел: ',pro);
var i,sum: integer;
for i:=1 to 15 do
sum+= i;
writeln('Сумма первых 15 чисел: ',sum);
program raf105;
var i,n:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
writeln('7');
end.
6.program raf105;
var
i: integer;
pro: real;
begin
pro:= 1;
for i:=1 to 20 do
pro*= i;
writeln('Произведение первых 20 чисел: ',pro);
end.
7.program raf105;
var i,sum: integer;
begin
for i:=1 to 15 do
sum+= i;
writeln('Сумма первых 15 чисел: ',sum);
end.