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

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

var a,b,c,i:integer;

begin
  a:=1;
  b:=1;
  c:=1;
  i:=1;
  while i<4 do
begin
  writeln('Vvedite celoe chislo: ');
  if (i=1) then readln(a);
  if (i=2) then readln(b);
  if (i=3) then readln(c);
  i:=i+1;
end;
  writeln('Vashi cisla:',a, ' ',b,' ',c);
end. 

Консоль:

Vvedite celoe chislo: 
22

Vvedite celoe chislo: 
33

Vvedite celoe chislo: 
44

Vashi cisla:22 33 44