Информатика. 7 класс. циклический алгоритм. даны 5 чисел (1,2,3,4,5). найти все четные числа

Program z1;var b,i,a:integer;beginfor i:=1 to 5 dob:=i mod 2;if (b=0)thenwriteln(i);end.