Ввести 3-х значное число , вывести сумму его цифр ( паскаль)

Program summa_4isel; uses crt; var a,e,z,y,x: integer; begin writeln('введите трехзначное число'); readln(a); x: =a div 100; y: =(a-x*100) div 10; z: =a-y*10-x*100; e: =x+y+z; writeln('сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.'); end.в переменными обозначены: a-трехзначное числоe-сумма чиселx, y и z - первое, второе и третье число соответственно.p.s. uses crt; можно удалить. но не желательно.

Не знаю, на каком языке ты я написал на c#   using system; namespace consoleapplication55{    class program    {        static void main(string[] args)        {            link:             console.write("введите кол-во элементов   числовой последовательности: ");             int kol = convert.toint32(console.;             if (kol > 100 || kol < 0)                goto link;             random ran = new random();             int[] array = new int[kol];             console.writeline("\nпоследовательность чисел в строчку: ");             for (int i = 0; i < array.length; i++)            {                array[i] = ran.next(1, 1000);                 console.write(array[i] + " ");             }            console.write("\n\nпоследовательность чисел, где каждое с новой строки: \n");             for (int i = 0; i < array.length; i++)                console.write(array[i] + "\n");             console.readkey();         }    } }смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь   него рандомные(случайные) числа с периодом от 1 до 1000. после этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в с# это "\n"), в паскале это writeln и т.д.

Var   k,n: integer; begin   n: =0;   writeln('введите последовательность целых чисел, завершающуюся нулем');   repeat       read(k);       if (n=0) and (k< 0) then n: =k   until k=0;   if n< 0 then writeln('первое отрицательное число равно ',n)   else writeln('последовательность не содержит отрицательных чисел') end.       тестовое решение введите последовательность целых чисел, завершающуюся нулем 5 11 17 3 -8 14 -6 3 0 первое отрицательное число равно -8