a TI :)

Tutaj znajdziemy rozne pytania i odpowiedzi kto umie niech odpowiada ;] a ja porusze jeden watep wrzuce swoj program napisany z racji tej ze pomagalem kumplowi z praca domowa i przerobilem jego program dorzucilem pare procedur i petli + case ocencie prace i jak mozecie zminimalizujcie wiersze.

program praca_domowa_by_dex;
uses crt;
var a,b,c,d,e,f,g:integer;
    wybor:char;
    t,y,u:integer;
procedure start;
begin
clrscr;
         writeln('Wpisz 4 kolejne liczby rzeczywiste');
         readln;
         write('Wpisz pierwsza liczbe: ');
         readln(a);
         write('Wpisz druga liczbe: ');
         readln(b);
         write('Wpisz trzecia liczbe: ');
         readln(c);
         write('Wpisz czwarta liczbe: ');
         readln(d);
         end;
         procedure dzialania;
         begin

repeat
clrscr;
     writeln('t - srednia arytmetyczna, y - suma odwrtonosci, u - suma kwadratow liczb');
     writeln;
     writeln(' nacisnij h - by zmienic 4 liczby na ktorych wykonujesz dzialania');
     writeln(' nacisnij Esc aby zakonczyc');
     write('Wybierz cos! :');
    wybor:=readkey;
   case wybor of 't','T' : begin
   clrscr;
                  writeln('Program teraz policzy srednia arytmetyczna tych liczb');
                  e:=a+b+c+d;
                  writeln('srednia arytmetyczna wynosi =',e/4:4:2);
                  readln;
                  end;
                  'y','Y' :
                  begin
                  clrscr;
                     writeln('teraz policzy nam sume odwrotnosci tych liczb');
                     f:=(-a)+(-b)+(-c)+(-d);
                     writeln('suma odwrotnosci wynosi: ',f);
                     readln;
                     end;
                  'u','U':
                  begin
                  clrscr;
                  g:=sqr(a)+sqr(b)+sqr(c)+sqr(d);
                  writeln('suma kwadratow tych liczb wynosi: ',g);
                  readln;
                  end;
                  'h','H' : begin
                  start;
                  dzialania;
                  end;
  end;
until wybor = #27
end;
begin
start;
dzialania;
end.