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

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

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

Первый способ
var check,znach1,znach2, znach3: integer;
begin
check:=0;
while check < 3 do
begin
  write('vvedite chislo: ');
  check:=check+1;
  if (check = 1)then
     readln(znach1)
  else
     if (check = 2)then
        readln(znach2)
     else
        readln(znach3);
end;
writeln(znach1,' ',znach2,' ',znach3);
readln();
end.

второй способ
var check,znach1,znach2, znach3: integer;
begin
check:=0;
znach1:=0;
znach2:=0;
while check < 3 do
begin
  write('vvedite chislo: ');readln(znach1);
  check:=check+1;
  znach3:=znach2;
  znach2:=znach1;
end;
writeln(znach3,' ',znach2,' ',znach1);
readln();
end.