Program Lonnhat;

Uses crt;

Var a,max: integer;

Begin

Clrscr;

Write('Nhap so thu nhat:');

Readln(a);

max:=a;

Write('Nhap so thu 2:');

Readln(a);

If a>max then max:=a;

Write('Nhap so thu 3:');

Readln(a);

If a>max then max:=a;

Write('Nhap so thu 4:');

Readln(a);

If a>max then max:=a;

Writeln('So lon nhat la:',max);

Readln

End.

program bai_kho;

uses  crt;

var a,b:real;

begin

 clrscr;

write('nhap a1: ');

readln(a)

;write('nhap b1: ')

;readln(b);

if a>b then 

begin:=b;

b:=0;

write('nhap b: ');

readln(b);

if  b>a then b:=a ;

end;

if a<b then

beginb:=a;

a:=0;

if a>b then a:=b;

end;

if a>b then write(a,'lon');

if a<b then write(b,'lon');

readln;

end.

Ảnh bên  dướichỉ minh hoạ vui lòng cân nhắc trước khi xem