Ответ:
Объяснение:
Клавиатура, мышка, наушники, веб камера, сканер, принтер, различные устройства ввода, монитор, модем..
2)введите номер месяца: 12
введите день: 3
до Нового года осталось: 28 дней
Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
<span>j:=0;
for i := 1 to n do
begin
if (b[j]>0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then
begin
inc(j);
b[j] := a[i];
end;
j = 0 , массив описан как array[1..n]
кроме того, массив b изначально не задан, поэтому будет еще и деление на ноль.
</span>