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

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