Во такой. Задан массив А [1..5]. Найти сумму случайных 3 чисел за ранние кто ответил <3

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

друг сказал) если не правильно извини, но он вродь хорош в информе

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист