с помощью цикла вывести ** экран:1234321

Question

с помощью цикла вывести на экран:1234321

Answer 1

Program Loop;

Uses Crt;

var i:integer;

begin

 

    clrscr;

    for i:=1 to 4 do write(i);

        for i:=3 downto 1 do write(i);

readkey;

end.