Число от 0 до 200 задается случайным образом. Если в числе

var a,b,k: integer;  

begin

a:=random(201);

writeln ('a = ',a);

b:=a;

repeat

k:=k+1;

b:=b div 10

until b=0;

if k=1 then writeln ('В числе ',a,' одна цифра. Его квадрат равен ',a*a);

if k=2 then writeln ('В числе ',a,' две числа. Квадратный корень из него равен ',sqrt(a):0:3);

if k=3 then writeln ('В числе ',a,' три цифры. Сумма его цифр одинакова ',a mod 10 + a div 100 + a div 10 mod 10);

end.