Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.
Автор кто? скажи автора я тебе решу
модель
на одну букву в леао
1)создаёт папку этого документа.
2)Вставка видео,картинок,
нельзя поменять структуру,по центру/сбоку и т.п. сплошной текст