Число

[werser]

или превый, если можно то код я не могу так серавно на словах понять ((( пожалуйста

[Карась]

В паскале незнаю как они называются.. юзайте его справку.

Допишите привычные функции и работайте какбудто в делфи...

function StrToInt(S :String):LongInt;
var I, Err :Integer;
begin
 Val(S, I, Err);
 StrToInt:= I;
end;

function IntToStr(I :Longint):String;
Var S :String;
begin
 Str( I, S );
 IntToStr := S;
end;

[werser]

Спасибо очень помогли