Viết chương trình in ra bội của 3 VCT in ra bội của 5 Mình cần gấp help me:(!!!!!

Câu $1$ Program Hotboy ;

uses crt;

var n, i : integer;

begin

    clrscr;

    write('Ban muon tim bao nhieu boi cua 3,nhap so boi can tim:  '); readln(n);

    for i:= 1 to n do writeln('boi cua 3 la',3,' x ', i, ' = ',3*i);

    Readln

end.

Câu $2$ Program Hotboy ;

uses crt;

var n, i : integer;

begin

    clrscr;

    write('Ban muon tim bao nhieu boi cua 5,nhap so boi can tim: '); readln(n);

    for i:= 1 to n do writeln('boi cua 5 la',5,' x ', i, ' = ', 5*i);

    readln

end.

câu 1:

program oken;
uses crt;
var n,i: integer;
begin
        clrscr;
        write('Nhap so luong so: '); readln(n);
        write('Boi so cua 3: ');
        for i:=1 to n do
                write(i*3,' ');
        readln;
end.

câu 2:

program oken;
uses crt;
var n,i: integer;
begin
        clrscr;
        write('Nhap so luong so: '); readln(n);
        write('Boi so cua 5: ');
        for i:=1 to n do
                write(i*5,' ');
        readln;
end.