вывести на экран 10 чисел с шагом 2 с через паскаль с помощью цикла с параметром,
Например как :
Var x, i: integer;
X:=10;
Fro i:=10 downto 1 do
begin
Writeln ('x=', x) ;
x:=x-1
end;
End.
​