нужно составить диалоговую программу

[тиму]

1.Факториал некоторого числа равен p. Найти это число:
Код Pascal

var p,i,s:integer;
begin
write('Введите факториал числа p=');
readln(p);
i:=1;
s:=1;
while s<p do
begin
 i:=i+1;
 s:=s*i;
end;
if s=p then write('Это ',i,'!')
else write('Это не факториал')
end.

2.Даны натуральные числа a и b. Определить все числа, кратные a и b, меньшие a*b (a и b должны быть больше 10)
Код Pascal

var a,b,mn,i,k:integer;
begin
repeat
writeln('Введите 2 числа, больших 10');
readln(a,b);
until(a>10)and(b>10);
if a<b then mn:=a else mn:=b;
k:=0;
for i:=mn to a*b-mn do
if (i mod a=0)and(i mod b=0) then
begin
 k:=1;
 writeln(i);
end;
if k=0 then write('Чисел,заданных условием нет')
end.

это 2 решеные задачи, на основе этих двух задач нужно составить диалоговую программу (как я понял открывается окошко и выбираешь один из них)..... помогите пожалуйста.... заранее спасибо


я так понял что нужно сделать типа меню(окошко) в котором выберешь одну из них.... то есть так 1)найти факториал 2)найти кратные числа и 3)выход...... а в 1 и 2 должно быть само тело программы которое уже решено.... мне нужно только эту среду в которой выбираешь..... ПОМОГИТЕЕ!

[newerow1989]

procedure p1;
var p,i,s:integer;
 begin
 write('Введите факториал числа p=');
 readln(p);
 i:=1;
 s:=1;
 while s<p do
 begin
 i:=i+1;
 s:=s*i;
 end;
 if s=p then write('Это ',i,'!')
 else write('Это не факториал')
end;

procedure p2;
var a,b,mn,i,k:integer;
begin
 repeat
 writeln('Введите 2 числа, больших 10');
 readln(a,b);
 until(a>10)and(b>10);
 if a<b then mn:=a else mn:=b;
 k:=0;
 for i:=mn to a*b-mn do
 if (i mod a=0)and(i mod b=0) then
 begin
 k:=1;
 writeln(i);
 end;
 if k=0 then write('Чисел,заданных условием нет')
end;

var c:char;
begin
   Repeat
      Writeln('Введите 1 для вызова 1-й процедуры, введите 2 для вызова 2-й процедуры, введите ''e'' для выхода');
      Readln(c);
      If c='1' then
         p1;
      If c='2' then
         p2;
   Until c='e';
end.

Сойдет?

[тиму]

спасибо большое)

[newerow1989]

Пожалуйста!