Задача 9 Урок 11

Задача 9 Урок 11

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

program lesson11_9;
var
    temp, a, b, c, i : integer;
begin
    a := 0;
    b := 0;
    c := 0;
    i := 1;
    while i <= 3 do
    begin
        writeln('enter number temp');
        readln(temp);
        c := b;
        b := a;
        a := temp;
        i := i + 1;
    end;
    readln()
end.

program lesson11_9;
var
    a, b, c, i : integer;
begin
    a := 0;
    b := 0;
    c := 0;
    i := 1;
    while i <= 3 do
    begin
        writeln('enter number');
        if i = 1 then
            readln(a)
        else if i = 2 then
            readln(b)
        else
            readln(c);
        i := i + 1;
    end;
    writeln(a, ' ', b, ' ', c);
    readln()
end.