Для розв'язування задач із даними ,які можна подати у вигляді електронних таблиць, розроблені спеціальні пакети програм, які називаються.а)текстовими редактором, в) фабричним процесором, б) мікропроцесори ,г) редактором презентацій.?​

Var n,a: integer; begin   writeln('введите n: ');   readln(n);   writeln('введите a: ');   readln(a);   if (n = 1) or (n = 3) or (n = 5) or (n = 7) or (n = 8) or (n = 10) or (n = 12) then       writeln('в месяце 31 день')   else if (n = 4) or (n = 6) or (n = 9) or (n = 11) then       writeln('в месяце 30 дней')   else if (n = 2) and (a = 0) then       writeln('в месяце 28 дней')   else if (n = 2) and (a = 1) then       writeln('в месяце 29 дней')   else       writeln('данные введены неправильно! ');   readln; 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.