Программа которая выводит ряд чисел от 5 до 50 с шагом изменения 2

Var    A:integer; Begin A:=5; Repeat Write(A,' '); A:=A+2; Until A>=50; End.