function sum(a, b: integer): integer;
begin
    sum:=a+b;
end;

function pow(value, degree: integer): integer;
var iterator, result:integer;
begin
    iterator:=0;

    While iterator < degree do
    begin
        result:=result*value;
        iterator:=iterator+1;
    end;
end;

procedure main()
var result, sum, a,b,c,d:integer
begin
    //обчислення виразу a+10+b^4+c^10
    //тут типу ввод даних хз як там щось типу readLine(a) чи щось таке :)
    result:=sum(sum(sum(a,10), pow(b,4)),pow(c,10));
end;
//ну калькулятор звісно трохи фіговий приклад бо це все реалізовано у мові по замовчуванню, але область даних перенсти можна