Написать программу которая бы выводила все четные числа от 1 до 10/
помогите.((

Writeln надо перенести в тело цикла. Так программа выведет только число 20. А нужно вывести толь от 1 до 10 все четные (2,4,6,8,10)

program test;vari : integer;beginfor i:=1 to 10 dobeginif (i mod 2 = 0) thenWriteln(i);end;end.

Program z8; Var i,p:integer; Begin p:=10; i:=2; while i<=20 do begin i:=i+p; end; writeln(i,' '); end. вот и ответ