task a)

task b)

task c)

Mrs Anna would like to buy a realty valued at 617 400 EUR. She has 250 000 EUR, the rest she would buy on credit. 
Bank gives her a credit with annual interest rate 13,6 % for 5 years. Mrs Anna will redeem the dept by quarter annuities, 
interest period in the bank is a quarter. The first interest and the first repayment will be realised 3 months after grant the mortgage.
a) Determine an amount of one repayment.
b) Determine how much money will pay together Mrs Anna in bank.
c) How much money constitutes the interest together?

Credit = 100000 (slider from 100000 to 500000, step 100)
Interest = 0.5 (slider from 0 to 15, step 0.1)
anuita: Credit Interest / 100 * 1 / 4 / (1 - (1 + Interest / 100 * 1 / 4)^(-20))
text1: "annuity = " + anuita
urok1: Credit Interest / 100 * 1 / 4
dlh1: Credit + urok1 - anuita
urok2: dlh1 Interest / 100 * 1 / 4
dlh2: dlh1 + urok2 - anuita
urok3: dlh2 Interest / 100 * 1 / 4
dlh3: dlh2 + urok3 - anuita
urok4: dlh3 Interest / 100 * 1 / 4
dlh4: dlh3 + urok4 - anuita
urok5: dlh4 Interest / 100 * 1 / 4
dlh5: dlh4 + urok5 - anuita
urok6: dlh5 Interest / 100 * 1 / 4
dlh6: dlh5 + urok6 - anuita
urok7: dlh6 Interest / 100 * 1 / 4
dlh7: dlh6 + urok7 - anuita
urok8: dlh7 Interest / 100 * 1 / 4
dlh8: dlh7 + urok8 - anuita
urok9: dlh8 Interest / 100 * 1 / 4
dlh9: dlh8 + urok9 - anuita
urok10: dlh9 Interest / 100 * 1 / 4
dlh10: dlh9 + urok10 - anuita
urok11: dlh10 Interest / 100 * 1 / 4
dlh11: dlh10 + urok11 - anuita
urok12: dlh11 Interest / 100 * 1 / 4
dlh12: dlh11 + urok12 - anuita
urok13: dlh12 Interest / 100 * 1 / 4
dlh13: dlh12 + urok13 - anuita
urok14: dlh13 Interest / 100 * 1 / 4
dlh14: dlh13 + urok14 - anuita
urok15: dlh14 Interest / 100 * 1 / 4
dlh15: dlh14 + urok15 - anuita
urok16: dlh15 Interest / 100 * 1 / 4
dlh16: dlh15 + urok16 - anuita
urok17: dlh16 Interest / 100 * 1 / 4
dlh17: dlh16 + urok17 - anuita
urok18: dlh17 Interest / 100 * 1 / 4
dlh18: dlh17 + urok18 - anuita
urok19: dlh18 Interest / 100 * 1 / 4
dlh19: dlh18 + urok19 - anuita
urok20: dlh19 Interest / 100 * 1 / 4
dlh20: dlh19 + urok20 - anuita
text2: "Interest = " + urok1
text3: "Debt = " + dlh1
text4: "Interest = " + urok2
text5: "Debt = " + dlh2
text6: "Interest = " + urok3
text7: "Debt = " + dlh3
text8: "Interest = " + urok4
text9: "Debt = " + dlh4
text10: "Interest = " + urok5
text11: "Debt = " + dlh5
text12: "Interest = " + urok6
text13: "Debt = " + dlh6
text14: "Interest = " + urok7
text15: "Debt = " + dlh7
text16: "Interest = " + urok8
text17: "Debt = " + dlh8
text18: "Interest = " + urok9
text19: "Debt = " + dlh9
text20: "Interest = " + urok10
text21: "Debt = " + dlh10
text22: "Interest = " + urok11
text23: "Debt = " + dlh11
text24: "Interest = " + urok12
text25: "Debt = " + dlh12
text26: "Interest = " + urok13
text27: "Debt = " + dlh13
text28: "Interest = " + urok14
text29: "Debt = " + dlh14
text30: "Interest = " + urok15
text31: "Debt = " + dlh15
text32: "Interest = " + urok16
text33: "Debt = " + dlh16
text34: "Interest = " + urok17
text35: "Debt = " + dlh17
text36: "Interest = " + urok18
text37: "Debt = " + urok18
text38: "Interest = " + urok19
text39: "Debt = " + dlh19
text40: "Interest = " + urok20
text41: "Debt = " + dlh20
A = Point(xAxis)
B = Point(xAxis)
a = Segment(A, B)
u = (0, 0.5)
C = Point(xAxis)
C' = Translate(C, u)
D = Point(xAxis)
E = Point(xAxis)
F = Point(xAxis)
G = Point(xAxis)
H = Point(xAxis)
I = Point(xAxis)
J = Point(xAxis)
K = Point(xAxis)
L = Point(xAxis)
M = Point(xAxis)
N = Point(xAxis)
O = Point(xAxis)
P = Point(xAxis)
Q = Point(xAxis)
R = Point(xAxis)
S = Point(xAxis)
T = Point(xAxis)
U = Point(xAxis)
v = (0, -0.5)
C'_1 = Translate(C, u)
w = Vector(C, C'_1)
D' = Translate(D, v)
z = Vector(D, D')
E' = Translate(E, u)
d = Vector(E, E')
F' = Translate(F, v)
e = Vector(F, F')
G' = Translate(G, u)
f = Vector(G, G')
H' = Translate(H, e)
g = Vector(H, H')
I' = Translate(I, f)
h = Vector(I, I')
J' = Translate(J, g)
i = Vector(J, J')
K' = Translate(K, h)
j = Vector(K, K')
L' = Translate(L, i)
k = Vector(L, L')
M' = Translate(M, j)
l = Vector(M, M')
N' = Translate(N, k)
m = Vector(N, N')
O' = Translate(O, l)
n = Vector(O, O')
P' = Translate(P, m)
p = Vector(P, P')
Q' = Translate(Q, n)
q = Vector(Q, Q')
R' = Translate(R, p)
r = Vector(R, R')
S' = Translate(S, q)
s = Vector(S, S')
T' = Translate(T, r)
t = Vector(T, T')
U' = Translate(U, s)
u_1 = Vector(U, U')
B' = Translate(B, t)
v_1 = Vector(B, B')
splatky: 20 anuita
text42: "sum of repayments = " + splatky
urokSpolu: splatky - Credit
text43: "sum of interests = " + urokSpolu
o = false
a_1 = false
b_1 = false