var
x, y: integer;
a: string;
begin
write('Введите число: ');
readln(x);
str(x, a);
y := Length(a);
if y = 3 then
writeln('Это трёхзначное число!')
else
writeln('Это не трёхзначное число! ');
end.
var
x, y: integer;
a: string;
begin
write('Введите число: ');
readln(x);
str(x, a);
y := Length(a);
if y = 3 then
writeln('Это трёхзначное число!')
else
writeln('Это не трёхзначное число! ');
end.