Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Все зависит от типа файла!!!
1)150000б. 0.15мб
2)3е+6 байт
3)5.5 гб. 5500000кб
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1 способ
begin
var a:=ReadArrInteger(3);
a:=a.Sorted.Reverse.ToArray; a.Println;
end.
2 способ
begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
if (c>b) and (b>a) then begin Println(c,b,a); exit; end;
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159