Viết chuong trình so sánh chiều cao của 3 bạn trong pascal

code:

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 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');
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 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');
readln;
end.

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.