Hiện lên dãy số 1,2-..,20 ra màn hình ,tính tổng dãy 1,2…,20 ra rồi hiện kết quả ra màn hình.

program hien_so

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 20 do i:=i+1;

for i:=1 to 20 do writeln(‘cac so tu 1 den 20 la:’,i);

readln;

end.

program tinh_tong;

uses crt;

var n,i:integer;

s:longint;

begin

clrscr;

writeln(‘nhap so n:’);

readln(n);

s:=0

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

writeln(‘tong cua’,n,’so tu nhien dau tien s=’,s);

readln;

end.