Непонятно написано напиши задачу ещё раз
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]=abs(a[i]);
for i:=1 to 10 do
write(a[i]);
end.
Закрывать программы, делать приоритет программам
1) Условие неполное. Что делать с числами 0, 5, 10 ... 1000?
2)
var a,b,c,max: integer;
begin
writeln('Введите 3 числа через пробел:');
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max=',max);
<span>end.</span>
64 возможно, но это не точно