Меню в паскаль

[CHIKEPC]

Помогите зделать меню для етой задачи) .Мне нужно два окна для ввода числа и вывода.

Program b;
uses crt;
var n,c:longint;
begin
clrscr;
write('Введите число: ');
readln(n);
c:=n mod 100 div 10;
writeln('Предпоследняя цифра: ',c);
 readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[freemanoid]

На турбо паскале?

[CHIKEPC]

Да. Если знаете как помогите плиз(

[Stilet]

http://programmersforum.ru/showthrea...=140716&page=2
И много прочего, внизу страницы на ссылках в похожих темах.