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

это решение через кумир?

Через паскаль

а мне надо через кумир

Program programma;Uses crt;var  a,k: integer;beginwrite ('Введите число а = ');readln(a);while abs(a)>0 do      begin      a:=a div 10;      k:=k+1;      end;if k=2 then writeln('Число двузначное')elsewriteln('Число не является двузначным')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.