var
i, s, n:integer;
begin
write('Введите последнее натуральное число (счет идет от 1 до n): ');
readln(n);
for i:=1 to n do
if i mod 2=0 then
s:=sqr(i);
writeln(i,' ');
end;
end.
var
i, s, n:integer;
begin
write('Введите последнее натуральное число (счет идет от 1 до n): ');
readln(n);
for i:=1 to n do
if i mod 2=0 then
begin
s:=sqr(i);
writeln(i,' ');
end;
end.