Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.