ejercicio 14 pascal

Program ana;
Uses winCrt;
Var a,b,c:integer;
Begin

Writeln (' Quien es mayor');
Writeln ('Ingrese a');
Readln (a);
Writeln ('ingrese b');
Readln (b);
writeln ('ingrese b');
Readln (b);
writeln ('ingrese c');
Readln (c);
if (a>b) and (a>c) then
writeln ('mayor es a')
else
if (b>a) and (b>c) then
writeln ('mayor es b')
else
if (c>a) and (c>b) then
writeln ('mayor es c')
end.