Нужен простейший интерфейс сюда
{$APPTYPE CONSOLE}
var
L:Boolean;
n:Integer;
a,b,c,p,r:Real;
ch:Char;
begin
L:=True;
while L do
begin
Writeln(' MENU:');
Writeln('1. Raschet Ploshadi pryamoygolnika');
Writeln('2. Raschet Ploshadi treygolnika');
Writeln('3. Raschet Ploshadi kruga');
Writeln('4. EXIT');
Write('Viberite punkt menu: ');
Readln(n);
case n of
1:begin
repeat
Write('Vvedite storoni pryamoygolnika: ');
Readln(a,b);
if (a<=0) or (b<=0) then
Writeln('NEKKOREKTNO')
else
Writeln('Ploshad pryamoygolnika ravna ',
a*b);
Write('Prodolzit vichislenia (Y/N) ? ');
Readln(ch);
until UpCase(ch)='N';
end;
2:begin
repeat
Write('Vvedite storoni treygolnika: ');
Readln(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
Writeln('Nekkorektno')
else
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
Writeln('nevozmozno vichislit')
else
begin
p:=(a+b+c)/2;
Writeln('ploshad treygolnika ravna ',
Sqrt(p*(p-a)*(p-b)*(p-c)));
end;
Write('prodolzit vichislenia (Y/N) ? ');
Readln(ch);
until UpCase(ch)='N';
end;
3:begin
repeat
Write('vvedite radius kruga: ');
Readln(r);
if r<=0 then
Writeln('nekkorektno')
else
Writeln('ploshad kruga ravna ',Pi*Sqr(r));
Write('prodolzit vichislenya (Y/N) ? ');
Readln(ch);
until UpCase(ch)='N';
end;
4:L:=False;
end;
end;
end.

Program YouName;

Uses crt; // Использование модуля crt.

Const e = 2.71828; // Объявление константы e.

Var // Раздел для описания переменных.

m,n: Integer; // Объявляем целочисленные переменные.

x,u,y: Single; // Объявляем дробные переменные.

Label check1, check2; // Объявляем метки для оператора Goto.

Begin // Начало "тела" программы.

 check1: // Метка для без условного перехода с оператора Goto.

write('Введите m: '); // Вывод текстового сообщения на экран консоли.

// {$I-} - это деректива, которая перехватывает вывод ошибок.

// т.e., если во время выполнение программы между {$I-} и {$I+} не будет ошибок,

// то значение IOResult будет равно 0. Если во время выполения программы произойдет ошибка,

// то программа не остановится, а задаст значение IOResult неравное 0.

// {$I+} соответственно отключает дерективу.

{$I-} // Включение директивы.

readln(m); // Ввод значения переменной m.

{$I+} // Отключение директивы

If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то..

  Begin // Начало подпрограммы.

   writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли.

   writeln('Введите число'); // Вывод текстового сообщения на экран консоли.

   Goto check1; // Переход на метку check1

  End; // Конец подпрограммы.

check2: // Метка для без условного перехода с оператора Goto.

write('Введите n: '); // Вывод текстового сообщения на экран консоли.

{$I-} // Включение директивы.

readln(n); // Ввод значения переменной n.

{$I+} // Отключение директивы.

If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то..

  Begin // Начало подпрограммы.

   writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли.

   writeln('Введите число'); // Вывод текстового сообщения на экран консоли.

   Goto check2; // Переход на метку check2

  End; // Конец подпрограммы.

x:=(m*n-exp(ln(e)*((-m)*0.7)))/(2.67); // Вычисление x

y:=ln(2)*(m+1); // Вычисление y

u:=0.125*sqrt(x/y)+exp(ln(e)*cos(x-y)); // Вычисление u

writeln(u:0:4); // Вывод текстового сообщения на экран консоли.

// u:0:4 - это задает переменной u четыре знака после запятой.

End. // Конец "тела" программы.

Информатика- дисциплина, изучающая структуру и общие свойства научной информации, а также закономерности её создания, преобразования, передачи и использования в различных сферах человеческой деятельности.

текстовый редактор-самостоятельная программа или компонент программного комплекса , предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности

графический редактор- программа, осуществляющая работу с графической информацией (Штриховыми и растровыми изображениями).