Viết chương trình pascal, cho hiện 5 lần một nguyên dương tùy ý ( số đó được nhập từ bàn phím màn hình chạy), nhấp sai báo lỗi

program nguyenduong;

uses crt;

var i,n,S:integer;

begin

clrscr;

write(‘ n = ‘); readln(n);

S:=5

for i:=1 to n do if (i < S) or (i = S) then writeln(n) 

readln;

end.