Это имя Потап 1я буква П и 5я П
Ввод: r ^ x ^ y С/П.
x^2 <-> x^2 + <-> x^2 - x>=0 11 1 С/П 0 С/П
Вывод: 1, если попадает, иначе 0.
Const n=30;
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
<span>end.</span>
это число в экпоненциальной записи
другими словами нужно запятую передвинуть на 4 знака вправо