Ответ:

Program Kalkulator

const

H = 'Hello';

PI = 3.14;

var

A :real;

B :real;

r :real;

Del :real;

Name :String;

Begin

writeln('Введите ваше имя');

readln(Name);

writeln(H, ', ', Name,'!');

repeat

writeln('Какую операцию вы хотите выполнить?');

writeln('Умножить - 1, поделить - 2, сложить - 3, вычитать - 4, площадь круга - 5, квадратный корень - 6, конец - 7');

readln(del);

If del > 7 then writeln('Выбери другой вариант, "умник"');

If del = 1 then

begin

writeln('Введите a');

readln(A);

writeln('Введите b');

readln(B);

writeln('Ответ: ', A*B);

end;

If del = 2 then

begin

writeln('Введите a');

readln(A);

writeln('Введите b');

readln(B);

writeln('Ответ: ', A/B);

end;

If del = 3 then

begin

writeln('Введите a');

readln(A);

writeln('Введите b');

readln(B);

writeln('Ответ: ', A+B);

end;

If del = 4 then

begin

writeln('Введите a');

readln(A);

writeln('Введите b');

readln(B);

writeln('Ответ: ', A-B);

end;

If del = 5 then

begin

writeln('Введите r');

readln(r);

writeln('Ответ: ', r*PI*PI);

end;

If del = 6 then

begin

writeln('Введите a');

readln(A);

writeln('Ответ: ', sqrt(a));

end;

Until del = 7;

If del = 7 then writeln('Удачи!');

end.

Объяснение:

Это калькулятор на паскале (Внутри него, а не отдельное приложение. Запускается в программе по Паскалю)

Надеюсь я тебя правильно понял.