СРОЧНООООООООООООООООООООООООООООООООООООООО

Верно ли решена задача? Сами определите количество и тип переменных.

Дано натуральное число. Приписать к нему такое же.

Program nature;

Var

Begin

Writeln(‘Введите натуральное число’);

Readln(a);

If a< 9 then k:=1

else

a< 100 then k:=2

else

if a<1000 then k:=3

else

if a<10000 then k:=4;

a:=a+a*k*10;

readln (a);

readln;

End.

5. Определить, лежит ли точка с координатами a,b внутри квадрата с координатами X1(-1,-1); X2(-1,1); X3(1,1); X4(1,-1).Координаты вводятся с клавиатуры.

Где a< 100 then k:=2, там должно быть " if a< 100 then k:=2"