Определить, превышает ли сумма цифр числа число, которое вводится с клавиатуры

uses crt;
var a,x,s,b:integer;
begin
ClrScr;
Readln(a);
x:=a;
while x<>0 do
 begin
  s:=s+(x mod 10);
  x:=x div 10;
 end;
Writeln('S ',s);
Readln(b);
if b<s then
 Writeln('No')
else
 Writeln('Yes');
Readln;
end.

uses crt;
var n,m,r:integer;
begin
Readln(n);
if n>100 then
 m:=n mod 100;
if (m>=11) and (m<=14) then
 Writeln('рублей')
else
 begin
  r:=n mod 10;
   case r of
    0,5..9:writeln('рублей');
    1:Writeln('рубль');
    2..4:writeln('рубля');
   end;
  end;
Readln;
end.

uses crt;
var a,b,y,x:integer;
begin
ClrScr;
Readln(a,b);
Readln(x);
if (a<0) and (b>5) then
 y:=sqr(a)+b-10
else
 if (2*x>=-1) and (2*x<=1) then
  y:=x
 else
  if 2*x<-1 then
   y:=x+2
  else
   y:=sqr(x)+1;
Readln;
end.

uses crt;
var
x,y:real;
begin
 clrscr;
 write('Введите x: ');
 readln(x);
 write('Введите y: ');
 readln(y);
 if (x<>0) and (y<>0) then
  begin
   if (x>0) and (y>0) then writeln('Точка лежит в I четверти');
   if (x<0) and (y>0) then writeln('Точка лежит в II четверти');
   if (x<0) and (y<0) then writeln('Точка лежит в III четверти');
   if (x>0) and (y<0) then writeln('Точка лежит в IV четверти')
  end
 else writeln('Значения координат должны быть отличны от нуля');
 readln
end.