Đề: Viết chương trình nhập một số chẵn có thể cho biết bội chung của số đó từ 5 đến 20.

Bài làm:

program Seyoung_told_me_not_to_move;

uses crt;

var Assay[1...100] of integer;

       j, i, n:integer;

begin

   writeln('Nhap so N'); readln(n);

   for i:=1 do

   begin

      writeln('A[', n, ']=');

      readln(A[i]);

    end;

    for i:=1 to N do

       write(A[i]:5);

       writeln;

       writeln('vi tri cua phan tu Max');

       j:=1;

       for i:=2 to N do

              if A[i]>A[j] then j:=i;

              write('vi tri:', j, 'Max:', A[j]);

        readln;

end.