Tham khảo:
-lệnh dùng để xóa màn hình làm việc:
Uses Crt ; { khai báo thư viện hàm }
Clrscr; { lệnh xóa màn hình kết quả }
- hai lệnh này dùng song song vs nhau nha.
VD:
Program vi_du;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln(s :4:2);
readln;
end.