Viết chương trình đưa ra máy tính các số chia hết cho 3 và tổng các só không chia hết cho 3 từ 5 số nhập vào từ bàn phím

Program hotrotinhoc;

var a,b,c,d,e,i,n: integer;

st,s: string;

t: longint;

begin

for i:=1 to 5 do

begin

readln(x);

if x mod 3=0 then

begin

str(x,st);

s:=s+st+#32;

end;

if x mod 3=0 then t:=t+x;

end;

writeln(st);

write(t);

readln

end.

Program BTT;
Uses crt;
Var A: array[1..5] of longint;
    i,t: longint;
Begin
        Clrscr;
        t:=0;
        For i:=1 to 5 do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If A[i] mod 3 <> 0 then t:=t+A[i];
        End;

        Write('Cac so chia het cho 3: ');
        For i:=1 to 5 do
                If A[i] mod 3 = 0 then Write(A[i],' ');
        Writeln;
        Write('Tong cac so khong chia het cho 3: ',t);
        Readln
End.