Написать программу которая принимает с клавиатуры 5-значное число а выводит сумму цифр этого числа !

Program chisla; uses crt; var a,b,c,d,e,f,summa : integer; begin write('введите пятизначное число '); readln(a); if (a> 99999) or (a< 10000) then writeln('введено не пятизначное число') else begin b: =a div 10000; c: =(a-(b*10000)) div 1000; d: =(a-(b**1000)) div 100; e: =(a-(b***100)) div 10; f: =a-(b****10); summa: =b+c+d+e+f; writeln(summa); end end.

1.отметьте допустимые идентификаторы знаком«+»,а недопустимые знаком «-» + 1) razmer + 2)_beta - 3) 5 abc + 4) y22m 2. подберите подходящий тип данных: a) количество учеников в классе – integer, word, byte b)заработанная плата сотрудника фирмы- real, double c) фамилия сотрудника фирмы – string 3.запишите арифметические выражения на языке программирования паскаль: a) ac-b+xyz  = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z); 4) напишите инструкцию вывода на экран: а) вашего имени = write('ваше имя'); в) число 400 = write(400); с) значение выражения x+y = write(x+y);

Var      surname : array [1..30] of string;         mark   : array [1..30] of real;           cand     : array [1..30] of string;         npupil, k : integer;                                                         begin    write('сколько всего учеников ? ');   readln(npupil);   writeln('введите фамилии и оценки учеников : ');   for var i : = 1 to npupil do    begin write(i, '. фамилия - '); readln(surname[i]);           write('     оценка - ');     readln(mark[i]);     end; writeln;   k: =0;     for var i : = 1 to npupil do    if mark[i]=2   then      begin k: =k+1; cand[k] : = surname[i] end;   if k=0 then writeln('в классе нет двоечников.')    else  begin writeln('двоечники : ');             for var i : = 1 to k do writeln( i, '. ' , cand[i]);       end; end.