Zlece napisanie banalnego schematu w turbo pascalu

Witam dopiero ci sie zapisalem do szkoly informatycznej i nie mam pojecia o programowaniu w turbo pascalu a mam juz zaliczeniowy egzamin;/ dostalem z programowania 3 zadania ktore podalem nizej prosze o napisanie mi gotowego schematu za ktory naturalnie zaplace.
moje gg : 4146610
@ : krzysieks2009@o2.pl

proponowal bym zad. 2 ale niekoniecznie.

Zadanie 1
Narysuj schemat blokowy algorytmu liczenia pierwiastków równania kwadratowego: Ax2 + Bx +C = 0, oraz napisz i uruchom program realizujący ten algorytm. Program powinien zawierać komentarze opisujące wykonywane czynności. Dane A, B, C do programu użytkownik wprowadza z klawiatury. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.
Zadanie 2
Napisz program, który będzie wykonywał wybrane operacje statystyczne. Dane do programu użytkownik wprowadza z klawiatury. Program powinie zawierać (zrealizowane za pomocą bloku case ) menu:
1 : pobierz dane
2 : oblicz średnią arytmetyczną
3 : oblicz wariancję
4 : oblicz element największy
5 : oblicz element najmniejszy
W programie wykorzystaj podprogramy typu funkction. Program powinien zawierać komentarze opisujące wykonywane czynności. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.
Zadanie 3
Napisz procedurę, która dodaje wartości dwóch zmiennych tablicowych tego samego typu (array[1..10] of Byte) i program demonstrujący jej działanie. Program powinien zawierać komentarze opisujące wykonywane czynności. Dane do programu należy wygenerować losowo. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.

Rzeczywiście banalne. Takie coś na egzamin. Wystarczyło by jakbyś odpalił google a nie płacił innym.

Program Rownanie_Kwadratowe;uses crt;var  a,b,c,delta,x1,x2:real;                lin:real;begin    repeat  clrscr;     writeln('Podaj wspolczynniki rzeczywiste a,b,c:');     readln(a,b,c);        if a=0 then    begin        writeln('Gdy a=0 to rownianie nie jest kwadratowe!');        writeln('Jest to rownanie linowe. ');        lin:=c/ b;        lin:= -lin;        writeln('Wynik rownania liniowego wynosi:',lin:10:2);     end             else       begin           delta:=sqr(<img src='http://www.forum.tweaks.pl/public/style_emoticons/<#EMO_DIR#>/wink.png' class='bbc_emoticon' alt=':(' />-(4*a*c);               if delta=0 then           begin               x1:=-b/(2*a);               writeln('Pierwiastek wynosi: x0=',x1:3:2);           end             else                begin                    if delta>0 then                  begin                      x1:=(-b-sqrt(delta))/(2*a);                      x2:=(-b+sqrt(delta))/(2*a);                      writeln('Pierwiastki wynosza: x1=',x1:3:2,' x2=',x2:3:2);                  end                    else                       writeln('Rownanie nie posiada rozwiazan rzeczywistych');                  end;                  end;                    writeln('Delta wynosi: ',delta:4:2);                    writeln;                    writeln('Nacisnij dowolny klawisz aby kontynuowac lub ESC aby zakonczyc...');     repeat until keypressed;           until readkey=#27;end.

Dzieki ) a czy mogl bys dodac jesczze te komentarze opisujace dzialanie ?

Dzieki ) a czy mogl bys dodac jesczze te komentarze opisujace dzialanie ?

Wysil wyobraźnię..., a jak nie dasz rady to pomogę...

moja wiedza w turbo pascalu jest podstawowa ja sobie umiem wytlumaczyc o co tu chdzi i co jets za co odpowiedzialne ale pisząc komentarz do danej procedury chyba nie opisal by tego za dobrze wiec jesli bys mogl ... byl bym wdzieczny .... hm i tak juz jestem