Так как число может быть большим, то для его описания применим тип longint.
При помощи процедуры Str превращаем число n в строку S, выделяем первую букву этой строки (S[1]), а затем при помощи процедуры Val переводим обратно строку в цифру:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39
Ребус номер один, в котором загадали слово "ТЕЛЕФОН"
Во втором ребусе загадано слово "КОРИДОР"
400 Мбит/с = 400мбит/с*1024= 409 600 Кбит/сек
409 600 кбит/сек = 419 430 400 бит/сек
419 430 400 бит /8 = 52 428 800 байт
52 428 800 байт / 1024 = 51 200 Килобайт
51 200 килобайт / 1024= 50 Мегабайт
Ответ: 50 Мегабайт
Диск печенька это кажется фрисби