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