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

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

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

var a,b,c,i,j: integer;
begin
i:=1;
for i:=1 to 3 do
begin
readln(j);
    if (i=1) then
        a:=j
    else if (i=2) then
        b:=j
    else
        c:=j;
end;
write(a,' ',b,' ',c);
end.