выражение c:=a=b; означает положить в переменную с результат сравнения переменных a и b и делать это пока a < b, вероятней всего программа зациклится
<span>Если бы было написано</span>
<span><span>while a<b do c:=a:=b;</span></span>
тогда цикл отработает 1 раз и все 3 переменные будут равны b
Const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.
Var
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
<span>End.
</span>
П0 cos ИП0 КвКор + С/П
Ввод: x С/П.
Вывод: y.
Без операционной системы и программного обеспечения, ну и без компьютера, конечно