* Xác định bài toán :

- Input : 4 số nguyên a, b, c, d

- Output : in giá trị lớn nhất trong 4 số

* Mô tả thuật toán :

- Bước 1 : nhập 4 số nguyên a, b, c, d

- Bước 2 : max ← a;

- Bước 2.1 : nếu b > max thì max ← b

- Bước 2.2 : nếu c > max thì max ← c

- Bước 2.3 : nếu d > max thì max ← d

- Bước 3 : xuất giá trị max

- Bước 4 : kết thúc

* Viết chương trình :

uses crt;

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

begin

clrscr;

write('nhap gia tri a, b, c, d :');readln(a, b, c, d);

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

writeln('gia tri lon nhat :', max);

readln

end.

Đây nhé bạn