TIn học: Viết thuật toán tìm số lớn nhất trong 5 số a,b,c,d,e Các bạn giúp mình với mình đang cần gấp ạ

+ Bước 1 : Nhập 5 số a, b, c, d, e

+ Bước 2 : Max ← a

+ Bước 3 : Nếu b > Max thì Max ← b

+ Bước 4 : Nếu c > Max thì Max ← c

+ Bước 5 : Nếu d > Max thì Max ← d

+ Bước 6 : Nếu e > Max thì Max ← e

+ Bước 7 : Đưa ra giá trị Max rồi kết thúc

uses crt;

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

begin

write('nhap a:');readln(a);  

write('nhap b:');readln(b);

write('nhap c:');readln(c);  

write('nhap d:');readln(d);   

write('nhap e:');readln(e);  

if (a>b) and (a>c) and (a>d) and (a>e) then writeln('a lon nhat');

if (b>a) and (b>c) and (b>d) and (b>e) then writeln('b lon nhat');

if (c>a) and (c>b) and (c>d) and (c>e) then writeln('c lon nhat');

if (d>a) and (d>c) and (d>b) and (d>e) then writeln('d lon nhat');

if (e>a) and (e>c) and (e>d) and (e>b) then writeln('e lon nhat');

readln;

end.