Napiszemy program, kt≤ry bΩdzie liczy│ sumΩ i r≤┐nicΩ dw≤ch wprowadzonych liczb ca│kowitych.


PROGRAM liczydlo;

{Instrukcja tam umo┐liwia wpisanie nazwy programu *}

USES crt;

VAR {Instrukcja, w kt≤rej zadeklarujemy rodzaj zmiennych **}

liczba_1, liczba_2: : integer;

{Dwie liczby , na kt≤rych bΩdziemy wykonywaµ dzia│ania to liczby ca│kowite. ªrednik na ko±cu.}

BEGIN

write ('Podaj pierwsza liczbe => ');

readln(liczba_1);

{Polecenie dla programu - czytaj oraz zapamiΩtaj to co wpisa│ u┐ytkownik. ProszΩ zwr≤ciµ uwagΩ, ┐e to polecenie jest trochΩ inne: READLN, a nie READ. Dodanie do polecenia: WRITE oraz READ ko±c≤wki LN powoduje przej╢cie do kolejnego wiersza.}

write('Podaj druga liczba =>');

readln(liczba_2);

writeln('Suma dwoch liczb wynosi: ',liczba1+liczba2,' a ich roznica: ',liczba1-liczba2);

{Polecenie dla programu by wpisa│ tekst (to co w nawiasie i w apostrofach). Program ma wykonaµ dwa dzia│ania. Pierwsz▒ czΩ╢µ zdania oddzielamy przecinkiem i polecamy, by program wykona│ dzia│anie na dw≤ch liczbach ca│kowitych. Dzia│anie oddzielamy przecinkiem i w apostrofach wpisujemy dalsz▒ czΩ╢µ zdania.}

readln;

END.