[cinma]

blagam, uzywajcie komentarzy w swoich kodach koledzy programisci
...a i wciecia sie na pewno przydadza

program Liczenie;

uses
  crt;

var
  a, b, suma : Real;
  odp : String;
begin
  clrsrc;  //  czyszczenie ekranu

  WriteLn('Program wykonuje dodawanie i dzielenie.');  //  info

  // wczytanie 1. liczby
  write('Wprowadz 1 liczbe: ');
  ReadLn(a);

  // wczytanie 2. liczby
  write('Wprowadź 2 liczbe: '):
  ReadLn(b);

  // spytanie o dzielenie
  Write(Czy chcesz podzielić sume tych liczb (wpisz TAK lub NIE): ');
  ReadLn(odp);

  suma := a+b;  //  obliczenie sumy
  if (odp = 'TAK') then
    WriteLn('wynik: ', suma/2)  //  wyswietlenie wyniku
  else  //  odp = 'NIE'
    WriteLn('wynik: ', suma);  //  wyswietlenie wyniku

  // nie wiem po co, ale czekamy 5 sek.
  Delay(5000)
end.