program tin_hoc;

uses crt;

var x,i: integer; s:real;

begin

clrscr;

write('nhap so nguyen x:'); readln(x);

for i:=1 to x do 

writeln('cac so nguyen tu 1 toi x la:',i);

s:=0;

for i:=1 to x do s:=s+i;

writeln('tong la:',s:0:0);

readln

end.

$#QLinkVN$

Code:

program QLinkVN;
uses crt;
var i,x,tong: integer;
begin clrscr;
write('Nhap gia tri x: '); readln(x);
writeln('Cac so nguyen tu 1 den ',x,' la: ');
for i:=1 to x do 
begin 
write(i:3);
if (i mod 10 =0) then writeln;
end;
writeln;
for i:=1 to x-1 do tong:=tong+i;
writeln('Tong cac so tu 1 den ',x-1,' la: ',tong);
readln end.