Помогите пожалуйста. Программа Паскаль дано трехзначное число. Напишите…

var c, f, First, count: integer; begin write ('c='); readln (c); f: =c; while (f div 10 > 0) do begin First: =f div 10; count: =1; while (First div 10 > 0) do begin First: =First div 10; Inc (count); end; if First <> f mod 10 then begin writeln ('No'); readln; Exit; end; while count > 0 do begin First: =First*10; dec (count); end; f: =f — First; f: =f div 10; end; writeln ('Changeling'); readln; end.