Верно ли решена ? сами определите количество и тип переменных. дано натуральное число. приписать к нему такое же. 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).координаты вводятся с клавиатуры.