Напишите программу, которая определяет, верно ли, что введённое число -трёхзначное. Пожалуйста напишите программу в Паскале. Начало с var...begin...end.Пожалуйста

var a:integer;b:string;beginreadln(a);str(a,b);if length(b)=3 then writeln(b,' - трехзначное число');end.

var a:integer;b:string;beginreadln(a);str(a,b);if length(b)=3 then writeln(b,' - трехзначное число');end.