viết phương trình nhập vào 2 số nguyên bất kì , đưa ra số lớn hơn nếu bằng nhau thì xuất ra 2 số bằng nhau

program nho;
uses crt;
var a, b : real;
begin
clrscr;
write('nhap gia tri so thuc a :');readln(a);
write('nhap gia tri so thuc b :');readln(b);

if a = b then writeln('gia tri hai so bang nhau ');

if a > b then writeln('a la so lon nhat trong hai so');
if a < b then writeln('b la so lon nhat trong hai so ');
readln
end.

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap so thu nhat:');

Readln(a);

Write('Nhap so thu hai:');

Readln(b);

If a>b then writeln('So lon nhat la:',a);

If a<b then writeln('So lon nhat la:',b);

If a=b then writeln('Hai so do bang nhau');

Readln

End.