СРОЧНО!!!ПОЖАЛУЙСТА!!! НАПИСАТЬ программу в Паскале.

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var s:=ReadlnString('Натуральное число:').Distinct;
  Writeln('Макcимальная разница в цифрах: ',Integer(s.Max)-Integer(s.Min))
end.

<u><em>Тестовое решение</em></u>
Натуральное число: 3456634642452343053000523424136240235341
Макcимальная разница в цифрах: 6

Жёсткий диск, флешка, диск , дискета, папка.

Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write('   x = ');ReadLn(Ax);
Write('   y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write('   x = ');ReadLn(Ox);
Write('   y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
     else WriteLn('Точка находится вне окружности')
End.



Var
   Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write('   x = ');ReadLn(Ax);
Write('   y = ');ReadLn(Ay);

WriteLn('Координаты второй вершины');
Write('   x = ');ReadLn(Bx);
Write('   y = ');ReadLn(By);

WriteLn('Координаты третьей вершины');
Write('   x = ');ReadLn(Cx);
Write('   y = ');ReadLn(Cy);

AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.

1 символ - 4 бита, поскольку 16 = 2^4.
Всего символов на шести страницах - 30*50*6 = 9000
Значит всего информации - 9000*4 = 36000 бит, или 4500 байт