Напишите программу которая будет переводить из 10 системы с счисления в любую другую ( в том числе должны быть отрицательные числа и не только целые) было бы неплохо ещё засчиту от дебилов(чтобы можно было упасть на клаву и программа не сломалась) очень прошу.

between - "между" по-английски

А вообще, загрузите программу и наведите курсор на непонятное место - будет подсказка

окей, а ты не подскажешь где ты скачал эту версию ?

я чет не могу её найти

На официальном сайте PascalABC

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!function DecToa(n:string;k:integer):string;// Перевод из десятичной системы в систему по основанию kbegin  var s:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';  Result:='';  var PointPos:=Pos('.',n);  var IntPart:integer;  if PointPos>0 then begin // есть дробная часть    var FracPart:=Frac(n.ToReal);    var m:=0;    while True do begin      var r:=FracPart*k;      Result+=s[Trunc(r)+1];      FracPart:=Frac(r);      m+=1;      if (m=15) or (FracPart=0) then break      end;    IntPart:=n[:PointPos].ToInteger;    end  else IntPart:=n.ToInteger;  if Result<>'' then Result:='.'+Result;  while IntPart>0 do begin    Result:=s[IntPart mod k+1]+Result;    IntPart:=IntPart div k    end;  if Result='' then Result:='0';  if Result[1]='.' then Result:='0'+Resultend;begin  var n:=ReadlnString('Какое число перевести?');  var p:real;  if not real.TryParse(n,p) then Writeln('Такая запись недопустима')  else    if n.Contains('e') or n.Contains('E') then      Writeln('Запись в экспоненциальном формате не разрешена')    else begin      var k:=ReadInteger('Укажите основание системы:');      if k.Between(2,36) then               Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')')      else Writeln('Допустимы основания 2..36')      endend.ПримерыКакое число перевести? 123,5433Такая запись недопустимаКакое число перевести? -353.093234Укажите основание системы: 21-353.093234(10) = -GH.1K2951B0DJAH1BI(21)Какое число перевести? 6523Укажите основание системы: 86523(10) = 61013(8)Какое число перевести? 1.2e-18Запись в экспоненциальном формате не разрешена