elaborar condiciones

**Israfel** Dom Feb 13, 2011 7:36 pm

dada una condicion mandar error si no se cumple.

program condicion5;
uses crt;
var
x:integer;
begin
clrscr;
Writeln('Diga un numero que no pase de 10:');
read(x);
if(x>10)then
Write('el numero que ingreso es mayor de 10');
if(x<10)then
Write('El numero que marco es correcto');
readkey;
end.
------------------------
program condicion5;
uses crt;
var
x,y:integer;
begin
clrscr;
Writeln('Diga un numero que no pase de 10:');
read(x);
if(x>10)then {si x es mayor que 10 entonces}
Write('el numero que ingreso es mayor de 10');
if(x<10)then {si x es menor de 10 entonces}
Write('El numero que marco es correcto');
readkey;
end.