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

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

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

Решение:

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

Консоль:

vvedite  chislo
2
vvedite  chislo
5
vvedite  chislo
7
end : 2 5 7