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

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

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

var i,w,a,b,c:integer;
begin
  i:=1;
  while (i<=3) do
   begin
     writeln('vvedite chislo');
     readln(w);
     if i=1 then
       begin
         a:=w;
         i+=1
       end
     else
       if i=2 then
         begin
           b:=w;
           i+=1
         end
        else
          if i=3 then
            begin
             c:=w;
             i+=1
            end;
   end;
  writeln('vvodimie chisla:',' ', a,' ', b,' ', c );
  readln();
end.                


Вывод консоли:
vvedite chislo
12
vvedite chislo
13
vvedite chislo
14
vvodimie chisla: 12 13 14