Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания,получить в сумме 100.
Паскаль.

Пробелы проставь только

после " ; "

Var A : Integer;BeginA:= 9+9;A:= A+8+8;A:= A+7+7;A:= A+6+6;A:= A+5+5;A:= A+4+4;A:= A+3+3;A:= A+2+2;A:= A+1+1;A:= A+9-1;A:= A+8-6;Writeln(A);End.

Var A : Integer;BeginA:= 9+9;A:= A+8+8;A:= A+7+7;A:= A+6+6;A:= A+5+5;A:= A+4+4;A:= A+3+3;A:= A+2+2;A:= A+1+1;A:= A+9-1;A:= A+8-6;Writeln(A);End.