Viết chương trình Pascal để thực hiện các công việc sau: -Nhập từ bàn phím 4 số tự nhiên a,b,c,d -Hiển thị ra màn hình số lơn hơn 4 số vừa nhập

Lời giải:

uses crt;

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

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('so lon nhat trong 4 so la: ',ln);

readln;

end.