ЗАДАНИЕ ПО ИНФОРМАТИКЕ!
(смотри файл позязя)
а я тебе )

//PascalABC.Net 3.1 сборка 1200

//написано в стиле обычного паскаля, должно работать

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.