10000+5000+600+90+4
ну это в сумме разрядных слогаемых, я не знаю подойдет или нет
Program zadacha;
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln('vvedite n');readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])<min then beginmin:=A[i];k:=i;end;writeln();writeln('min=',min, ' N ', k);
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal('Введите сторону квадрата:');
write('S=',a*a,'; P=',a*4);
end.