Нужен проект на тему "опрацювання об'єктів мультимедіа" , нужно на украинском и не презентацию, а именно проект шрифт должен быть times new roman размер 14 1.титульная страница 2.план 3.информация 4.художне завдання 5.висновок 6.джерела информации надеюсь на вашу , связаться можно через вк vk. com/lopata_2018

Var   a, i, k2, k4, k5, c, d, n: integer; begin   write('введите количество учеников в классе: '); readln(n);   if (n = 32) then   begin       c : = 1;       d : = 5;       writeln('введите оценки учеников: ');       k2 : = 0;       k4 : = 0;       k5 : = 0;       i : = 1;       while i < = n do       begin           write('оценка ученика №',i,': '); readln(a);           if (c < = a)and(a < = d) then           begin               case a of                   2: k2 : = k2+1;                   4: k4 : = k4+1;                   5: k5 : = k5+1;               end;               i : = i+1;           end           else               writeln('неприемлимое значение! допустимые значения: [',c,'..',d,']');       end;       writeln('количество двоек: ',k2);       writeln('количество четвёрок: ',k4);       writeln('количество пятёрок: ',k5);   end   else       writeln('в классе не 32 ученика'); end.

1)это с while var a,p,i,c: integer; begin   readln(a);   readln(p);   c: =1; i: =0;   while i< p do   begin       c: =c * a;       inc(i);   end;   writeln(c);   readln; end. 2) это с repeat var a,p,i,c: integer; begin   readln(a);   readln(p);   c: =1; i: =0;   repeat       c: =c * a;       inc(i);   until i=p;   writeln(c);   readln; end. 3) это с for var a,p,i,c: integer; begin   readln(a);   readln(p);   c: =1;   for i: =1 to p do       c: =c * a;   writeln(c);   readln; end.