Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Если введѐнное число не трѐхзначное, вывести сообщение об ошибке.

var q,k,i:integer;w:string;
begin
readln(q); k:=0;
if (q/1009.99) then writeln(Chislo ne 3ehznachnoe!)
else begin
str(q,w);
for i:=1 to length(w) do
if w[i]=1 then k:=1;
if k=1 then writeln(q*2) else writeln(sqr(q));
end;
end.