Помогите пожалуйста,PASCAL,100 БАЛЛОВ

Question

Помогите пожалуйста,PASCAL,100 БАЛЛОВ

---

Answer 1

uses crt;

var a:array[150..250] of integer;

  i,k:integer;

begin

    for i:=150 to 250 do

    begin

         if a[i] mod 7=0 then inc(k);

    end;

    write(k);

end.

Answer 2

1.

var i,k:integer;

begin

for i:=150 to 225 do

if i mod 7=0 then k:=k+1;

write(k)

end.

2.

var a,s:integer;

begin

read(a);

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10

end;

if s mod 10=0 then write('Правда') else write ('Неправда')

end.