Дано натуральное число. Напишите программку, которая инспектирует, является ли онотрехзначным и

На Паскале это будет смотреться последующим образом:

program num;

var a,b,i,sum: integer;

begin

sum:=0;

a:=0;

b:=0;

i:=0;

writeln('Enter your number ');

readln(a);

if ((agt;99)  and (alt;1000)) then begin

writeln('It has 3 digits');

for i:=0 to 3 do begin *!!!если будет ошибка, то смени 3 на 2!!!*

b:=a mod 10;

a:=a div 10;

sum:=sum+b;

end *!!!здесь спорный момент. Если будет ошибка, то спроси у учителя как верно поставить точку с запятой =)!!!*else

writeln('You wrote a wrong number, try again!');

end; *!!!и еще раз - если будет ошибка компиляции, то спроси у учителя как правильно расставить точки с запятыми(;)!!!*

end.