1.На вход программке даётся число N и N чисел (все естественные

1.program zz1;
var n, i, min, a:integer; // вводим переменную целого типа
begin
write( введите число n ); // вводим с клавиатуры число
read(n);
min:=100000;
for i:=1 to n do // организуем цикл
begin
read(a);
if a lt; min then min:=a;
end;
write( число с наименьшим количеством цифр = , min); // выводим ответ
end.
2.program zz1;
var i, i1,i2,i3,i4:integer; // задаем переменные целого типа
begin
for i:=1000 to 9999 do // перебираем все четырехзначные числа
begin
i1:=i div 1000;
i2:=(i div 100) mod 10;
i3:=(i div 10) mod 10;
i4:=i mod 10;
if (i1=i4) and (i2=i3) then writeln(i); // выводим ответ
end;
end.