Răspuns:
program ex13;
var x,y,r:integer;
begin
write('x='); read(x);
write('y='); read(y);
if x=y then writeln(0)
else
if x<y then writeln(1)
else writeln(2);
end.
Explicație:
program ex14;
var c:char;
begin
write('caracter='); read(c);
case c of
'A'..'Z': writeln('Litera majuscula');
'a'..'z': writeln('Litera minuscula');
'0'..'9': writeln('cifra');
else writeln('caracter special');
end;
end.
