Дополнить состав компьютера это внутренняя память.процессор добавить 4 слова

Материнская плата, видеокарта, монитор, клавиатура

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.