Хотябы одно из этогоСоставьте блок-схему и программу вывода четных чисел от 5 до 20 с цикла while​

var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.

Это от 1 до 20,дальше незню

Объяснение: