Составить программу определяющее двухзначное число. составить программу определяющее произведение от 1 до n.

Program programma;
Uses crt;

var  a,k: integer;

begin
write ('Введите число а = ');
readln(a);

while abs(a)>0 do
      begin
      a:=a div 10;
      k:=k+1;
      end;
if k=2 then writeln('Число двузначное')
else
writeln('Число не является двузначным')
End.

Program programma;
Uses crt;

var n,p,i: integer;

Begin clrscr;
      write('Введите число N = ');
      readln(n);
      p:=1;
write('P=');
for i:=1 to n-1 do
    begin
    p:=p*i;
    write(i,'*');
    end;
p:=p*n;
write(n,'=', p);
End.