Program INTEGVN:

1u FORMAT:

INPUT L;"DOLZINA";"";"";0:

FOR I=1 TO 2 STEP 1;

INPUT E;"ELEMENT "I;"L "I;"";0:

INPUT F;"ELEMENT "I;"X "I;"";0:

INPUT G;"ELEMENT "I;"Y "I;"";0:

Gu H:

IF F<L THEN

INPUT H;"ELEMENT "I;"D "I;"";0:

END:

IF I==1 THEN Eu A:

Fu B:Gu C:Hu D:END:

END:

4u FORMAT:4u DIGITS:

Eu R:Fu S:Gu U:Hu V:

Au E:Bu F:Cu G:Du H:

RUN INTERA: @M1*M1@

MSGBOX"M1*M1="Q:

Ru E:Su F:Uu G:Vu H:

RUN INTERA: @M1*M2@

MSGBOX"M1*M2="Q:

Au R:Bu S:Cu U:Du V:

Eu A:Fu B:Gu C:Hu D:

RUN INTERA: @M2*M2@

MSGBOX"M2*M2="Q:

Ru A:Su B:Uu C:Vu D:

Program INTERA:

C-A-B/L*(D-A) u J:

G-E-F/L*(H-E) u K:

F/Lu M: 1-Mu N: B/Lu O: 1-Ou P:

IF O>=M THEN Ou X: Nu Y:Mu Z: END:

IF M>O THEN Mu X: Pu Y:Ou Z: END:

A*(2*E+H)+D*(E+2*H) u Q:

Q+K*(A*(1+N)+D*(1+M)) u Q:

Q+J*(E*(1+P)+H*(1+O)) u Q:

IF J*K¹ 0 THEN Q+J*K/Y/X*(2*X-X²-Z²)u Q:

END:

Q/6*Lu Q: