Если везде неверные таблички, значит в первой зебра. Волк не может быть в первой, значит он во второй. И для пони остаётся третья клетка.
29:2=14.1??? Что За пример такой с остатком????!
2021 это 202,1*10 или 404,2*5 (вариантов бесчисленно много)
3000 это 300*10 или 30000/10
545 это 109*5 или 5450/10
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.