Programa de Restas

program resta ;
uses crt;
var
   a,b,c :integer;
begin
   clrscr;
   write('teclea un n£mero : ');
   readln(a);
   write('teclea otro n£mero : ');
   readln(b);
   c:=a-b;
   writeln('el resultado es : ');
   writeln(c);
   readln;
end.