test9.txt

program calculator(input, output);

var num1, num2: integer;
var num3: real;
var result: real;
var aResult: array[10..70] of integer;

function sum (num1: real; num2: integer):real;
	begin
	result := num1 + num2
	end;

function subtraction (num4: real; num5: integer): integer;
	begin
	result := num1 - num2;
	result := num4 - num5;
	subtraction := result
	end;

function multiplication (num4: integer; num7: integer): integer;
	begin
	result := num1 * num2;
	result := num4 * num7
	end;

procedure procId;
	begin
		result := num7
	end;

begin
	num1 := 2;
	num2 := 10;
	result := 0;
	result := sum(num1, num2);
	if result > 20 then
		result := subtraction(num2, num1)
	else
		begin
		num1 := 3;
		num2 := 4;
		result := multiplication(num1, num3)
		end;
	while (multiplication(num1, num2) <> 100) do
		begin
		num1 := num1 + 1;
		num2 := num2 + 1;
		aResult[50] := num1 + num2
		end
end.