Так?
uses Robot;
begin
Task('if1');
right;
if WallFromUp then
begin
down;
right;
up;
end;
if wallfromdown then
begin
up;
right;
down;
end;
paint;
end.
Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание LN), и паскаль просто не видел никакие числа, кроме первого.
И очень муторный и непонятный код, я переписал немножко:
var
col, a: integer;
begin
col := 0;Read(a);
while a <> 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3
Если перевести эти двоичные коды в десятичную систему счисления, то получится вот такой ряд чисел:
54 43 55 6149 <span>51
</span>
12 Мбайт= 12 * 1024 кбайт
t=s/v
t=12*1024/4=3072 секунд=51.2 мин