var n,i:integer;

       tong:longint;
begin
 write('Nhap N ='); readln(n); writeln; t:=0;
 for i:=1 to n do
 t:=t+i;
 write('Tong cua cac so tu 1 den ',n,' la ',t);
 readln;
end.

var n,dem,i: integer;
    tich: longint;
begin
   tich:=1;
   write('Nhap N=  ');read(n); writeln;
   begin
       write('Cac so le chia het cho ',n,' la');writeln;
       for i:= 1 to 100 do
       if (i mod n = 0) and (i mod 2 <> 0) then write(i:4);writeln;
   end;
   begin
       for i:= 1 to 100 do
       if (i mod n = 0) and (i mod 2 <> 0) then dem:= dem + 1;
       write('Dem = ', dem);writeln;
   end;
   begin
       write('Cac so chia het cho ', n,' va 5 tu 1 den 50 la ');writeln;
       for i:= 1 to 50 do
       if (i mod n = 0) and (i mod 5=0) then write(i:4);writeln;
   end;
   begin
       for i:= 1 to 100 do
       if (i mod n = 0) and (i mod 5=0) then tich:= tich * i;
       write('Tich cac so tu 1 den 100 chia het cho ', n, ' va 5 = ', tich); writeln;
   end;
   readln;
end.

Bạn dùng lệnh write hoặc writeln nhé.

Ví dụ mình muốn in dòng chữ "VietJack" ra màn hình thì làm như sau

begin

write('VietJack');

readln;

end.