var i:integer;
begin
for i:=2 to 98 do if (i mod 2)=0 then write(i:3);
end.
Увы, ASCII-артом не владею, поэтому составить блок-схему не смогу
