So sánh chiều cao của ba bạn trong pascal

var a,b,c:real;
begin
write('chieu cao ban a:');
read(a);
write('chieu cao ban b:');
read(b);
write('chieu cao ban c:');
read(c);
if c>b then writeln('ban c cao hon ban b');
if c<b then writeln('ban c thap hon ban b');
if c=b then writeln('ban a bang ban b');

if a>c then writeln('ban a cao hon ban c');
if a<c then writeln('ban a thap hon ban c ');
if a=c then writeln('ban a bang ban c');

if a>b then writeln('ban a cao hon ban b');

if a<b then writeln('ban a thap hon ban b');
if a=b then writeln('ban a bang ban b');

readln;
end.

Program BinhiucuaTri ;

uses crt ;

var a , b : integer ;

begin

clrscr ;

write ( ' nhap chieu cao ban ....' ) ;

readln (a) ;

write ( ' nhap chieu cao ban .....' ) ;

readln (b) ;

readln(c)

write ( ' nhap chieu cao ban .... ' ) ;
If a > b then wirte ( ' ban .... cao hon ban .... ' ) else
if a < b then wirte ( ' ban ..... cao hon bạn ..... ' ) else 

if a < c then wirte ('  ban ...... cao hon ban .....') else
write ( ' 3 ban bang nhau ' ) ;

readln ;

end.