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

s:string;i, k, a:integer;beginreadln(s);if length(s)=3 then beginfor i:=1 to length(s) doif s[i]='1' then beginval(s, a);a:=a*2; endelse begin val(s, a);a:=a*a; end; endelse writeln('ошибка');writeln(a);readln;end.