Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа- Pascal(Паскаль)

Program z1;
  Uses crt;
  Var x,s,kv:word;
      i,n:byte;
  Begin clrscr;
    read(x);
    kv:=sqr(x);
    n:=0;
    s:=0;
    for i:=1 to 3 do
     begin
       s:=x mod 10;
       x:=x div 10;
       n:=n+s;
     end;
    s:=s*s*s;
    if (kv=s) then writeln('Da ravno')
     else writeln('net ne ravno');
    writeln('n=',n);
    readln;
  end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c,d,t,x:longint;

begin
while 1=1
do begin
write('Enter number:  ');readln(x);
If (x<100) or (x>999)then writeln('Ti noob, nado trehznak pisat'' suda')
else
begin
a:=sqr(x);
b:=x div 10;
c:=b div 10;
d:=b div 10;
t:=(b+c+d)*(b+c+d)*(b+c+d);
writeln('kvadrat 4isla=  ', a, '  Kub summi zifr=  ', t);
if a=t then writeln('kvadrat chisla  ', x, '  ne raven kubu summi ego chisel')
else writeln('kvadrat chisla  ', x, '  ne raven kubu summi ego chisel');
writeln;
end;
end;
end.