Як реагує програма коли користувач вводить числа збільшою або меншою кількість цифр?

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

25 декабря 1951 году был создан первый отечественный комп

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10

значит полторы курицы за день одно яйцо

значит одна курица за день 2/3 яйца

работу с файлами я не помню, буду писать через консоль

var k,d: integer;

ja: real;

begin

  read(k,d);

  writeln(round(2*k*d/3));

end.