Информатика 5 сынып 4 тоқсан тжб беремін,Көмектесіңдерші

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.

1. 
алг
нач
 цел а
 ввод а
 вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.

Было число ав

Стало число 2ав2

Разложим его на разряды

2ав2=2*1000+а*100+в*10+2=2002+100а+10в

По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:

32ав=2ав2  ( Число ав тоже разложим на разряды, получим 10а+в)

32(10а+в)=2002+100а+10в

32(10а+в)=2002+10(10а+в)

32(10а+в)-10(10а+в)=2002

22(10а+в)=2002

10а+в=2002:22

10а+в=91

Итак, искомое число 91