program twee_prog; uses wincrt;
var
	getal1, getal2, getal3: integer;
function kwadraat(x: integer): integer;
	begin
		kwadraat:=x*x
	end;
function tweemaal(x: integer): integer;
	begin
		tweemaal:=x*2
	end;
begin
	getal1:=5;
	getal2:=4;
	getal3:=kwadraat(getal1);
	getal3:=getal3+tweemaal(getal2)*getal1;
	getal3:=getal3+kwadraat(getal2)
end.