Bài $1$ : Cú pháp khai báo biến

+ Var tenbien1,tenbien2,...: kiểu dữ liệu ;

 Khai báo hằng

+ const <tenhang> = <giatrihangkhongdoi>;

Câu lệnh lặp điều kiện 

+ While [điều kiện] do [câu lệnh ] ( dịch ,trong khi....làm ...) 

+ Repeat [câu lệnh] until [ điều kiện ] (dịch ,lặp lại công việc cho đến khi điều kiện...) 

Câu lệnh lặp For..do

For (biến đếm) := (giá trị đầu) to (giá trị cuối) do (câu lệnh thực hiện )

Bài $2$

Program Hotboy;

Uses crt; 

Var a,l,o,n,e ,fornever : Longint; 

Begin

Clrscr;

Write('nhap so thu nhat ') ; readln(a);

Write('nhap so thu hai  '); readln(l);

Write('nhap so thu ba  '); readln(o);

Write('nhap so thu tu  ');  readln(n);

Write('nhap so thu nam'); readln(e);

Fornever:=(a+l+o+n+e)/5);

Writeln('trung binh cong cua 5 so vua nhap la ',fornever);

if a> fornever then write(a,'lon hon tb ');

if l> fornever  then write(l,' lon hon tb');

if o> fornever then write(o,' lon hon tb');

if n> fornever then write(n,'lon hon tb ');

If e> fornever then write(e,'lon hon tb');

Readln

End.

1/ Khai báo biến var <tên> : <kiểu dữ liệu>;

Khai báo hằng const <tên> = <giá trị>;

Câu lệnh lặp điều kiện: while <điều kiện> do <câu lệnh;

Câu lệnh lặp for - do: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

2/ 

Chương trình:

var a,b,c,d,e: integer;

begin

write('Nhap 5 so: '); readln(a,b,c,d,e);

write('Trung binh cong la: ',(a+b+c+d+e)/5:0:4);

if a>(a+b+c+d+e)/5 then write(a,' ');

if b>(a+b+c+d+e)/5 then write(b,' ');

if c>(a+b+c+d+e)/5 then write(c,' ');

if d>(a+b+c+d+e)/5 then write(d,' ');

if e>(a+b+c+d+e)/5 then write(e,' ');

readln

end.