ejercicio 13 pascal

Program AB;
Uses winCrt;
Var a,b:integer;
Begin

Writeln (' Ingrese a');
Readln (a);
Writeln ('mayor es b');
Readln (b);
if a>b then
writeln ('mayor es a')
else
writeln ('mayor es b')
End.