Написать программу, которая печатает True или False в зависимости от того выполняется ли условие: квадрат заданного трехзначного целого положительного числа, равен кубу суммы цифр этого числа. (123)2=(1+2+3)3 — Pascal(Паскаль)

program zadacha; {заголовок программы}
uses CRT;{подключение модуля CRT}
var x,x1,x2,x3:Longint;{объявление переменных}
begin {начало}
clrscr;{очистка экрана}
writeln ('Vvedite trex znachnoe chislo x') ;{ввод значения}
readln (x);{вывод значения}
x1:=x div 100;
x2:=(x-x1*100)div 10;
x3:=x-x1*100-x2*10;
if x*x=(x1+x2+x3)*(x1+x2+x3)*(x1+x2+x3) then
writeln ('True') else  writeln ('Fals');{условный оператор IF}
readln;{вывод}
end.{конец}