v»łOv.vl vv\C j ^o f; e^p^-^w
PROGRAM obliczenia;
usts crt;
VAR
a,b:inteoer;
PROCEDURĘ Dodawanie;
te( podaj liczbę b« ’); tfln(b);
reądln(a);
VAR
sum*:1nteger;
REGIN suma:
writeln('su*a liczb '.a,' 1 ' ,b,‘ wynosi $« '.suma); pno;
procedurę Odejmowanie;
VAR
rozniea:integer;
REGIN
raxnica:-*-b;
writeln(*różnica liczb ’,a,' i ',b,' wynosi s» ',różnica);
' rwo;
PROCEDURĘ Mnożenie;
VAR
iloc/yn:inteqer;
REGIN
iloczyn:*a*b;
writeln('iloczyn liczb '.a,' i ',b,' wynosi s- '.iloczyn); eno;
procedurę Dzielenie;
VAR
ilorazrreal;
REGIN
iloraz:a/b:
writelnC iloraz liczb '.a,' i '.b,' wynosi s- ',iloraz:4;2);
Emo;
procedurę Potęgowanie;
VAR
potęga, potega2:integer;
REGIN
potęga:-a*a;
writclnC'potęga liczby '.a,' to *.potęga); potęga:-b*b;
writeln('poteqa liczby *,b,’ to \poteqa2); eno;
REGIN
Clrscr;
•ritetnCprogran dodaje, odejmuje, mnoży, dzieli i potęguję podane dwie liczby write(*podaj'liczbę a- ‘);
, readln(b);
• Dodawanie;
Odejmowanie; l Mnożenie;
| Dzielenie;
Potęgowanie;
•epeat inrriL keypressed; EW.
do.^ -^oceola^s^ ^0 ^ ^
M41I
•I^Jl -MW Mlkofy. h,'s, Vjlko yio. youlii
I >j Uo3> ^ ^ohfolj ^oJcl<Jo-yO'>3£J.Ta4.:.'^o(/^4%e 4 ■
/jf<0Q»(Qj*t\ ^otęJ^ara. ^oit ^oiiaJaę 4fc.cje •Jksne Iduyy^ ^.-. a.w^e, Maie f
D^u^filue. vJ2guj^ ^k^oaaaj»t. -vo auepci \*^&*.' 'XęCSr?*ł* °40^3° • ^ |Ulu)fcJc>.
■^'it.^ojć Jelt/oy(9£[V yt&ccolu/yj^ j)yoc€o^v^..
. /bilivdic ^eUcL7xxc^i. *-
)f b^.-^C^AA r^Ycbto.'Vyi V*aQ/Y]-$Su ^JU0i«H^k j 'itttWg
■° ^ 'hiJi OiOL^te£.^*obtanQ.j^idxia.
A-^Ia rrlO> loc\ictutig v2kcfOisr*Ckv\i, kb*i^ptdor5v ; ^^-^'.o^u^i X£ Toj^ęiJc **$■ iji i£cłji^ w«x ^&la!nć .
i foWlttjZ.
^<5 4c7 JcLIatC^^C