Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.
Потому что она позволяет проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы.