Napisz 6 różnych programów do turbo pascala !!!!!!

Wystarczy, ze skopiujesz to do notatnika i zmienisz rozszerzenie na .pas potem powinieneś otworzyć to w Turbo Pascalu 1. program kalkulator; uses crt; var a,b:real; z:integer; BEGIN clrscr; writeln('Program wyznacza sum©, iloczyn, r˘ľnic© i iloraz dew˘ch danych liczb a i b'); gotoxy(10,8); write('Podaj liczb© a - '); readln(a); gotoxy(10,9); write('Podaj liczb© b - '); readln(b); gotoxy(15,12); writeln(' M E N U '); gotoxy(15,13); writeln('1 - suma'); gotoxy(15,14); writeln('2 - r˘ľnica'); gotoxy(15,15); writeln('3 - iloczyn'); gotoxy(15,16); writeln('4 - iloraz'); gotoxy(15,18); write('wybierz opcje - '); readln(z); case z of 1:begin clrscr; gotoxy(35,12); writeln('Suma wynosi - ',a+b:6:2); end; 2:begin clrscr; gotoxy(35,12); writeln('R˘ľnica wynosi - ',a-b:6:2); end; 3:begin clrscr; gotoxy(35,12); writeln('Iloczyn wynosi - ',a*b:6:2); end; 4:begin clrscr; gotoxy(35,12); writeln('Iloraz wynosi - ', a/b:6:2); end; end; Repeat until keypressed; end. *** 2. Podaj liczbe w systemie binarnym ktora chcesz zamienic na dziesiatkowa program binreal; uses crt; var n: longint; rz, p: real; bin: string; begin clrscr; writeln('Podaj liczbe w systemie binarnym ktora chcesz zamienic na dziesiatkowa'); readln(bin); p:=1; n:=2; while (bin[n]<>',') and (n< =length(bin)) do begin p:=p*2; n:=n+1; end; write(bin:length(bin),'->'); Rz:=0; for n:=1 to length(bin) do begin if bin[n]='1' then rz:=rz+p; if bin[n]<>',' then p:=p/2; end; write(rz:1:11); delay(1000); writeln; writeln; writeln('Program by Michal "KodAk" Dubiel. 2008'); readln; end. 3. Obliczanie sredniej ocen program tablicca; uses crt; const ile=100; var tab:array[1..ile] of byte; n,suma,i:integer; srednia:real; begin clrscr; write('Podaj ilos† przedmiot˘w = '); readln(n); writeln; for i:=1 to n do begin write('Podaj ocene ='); readln (tab[i]); end; writeln; suma:=0; for i:=1 to n do begin suma:=tab[i]+suma; end; begin srednia:=suma/n; writeln('Srednia = ', srednia:2:2); readln; end; end. 4.Ten program ustawia 3 liczby w kolejnosci rosnacej program trzyliczby; uses crt; var a,b,c:real; begin ClrScr; writeln('Ten program ustawia 3 liczby w kolejnosci rosnacej'); writeln; writeln('Podaj 1 liczbe = '); readln(a); writeln('Podaj 2 liczbe = '); readln(b); writeln('Podaj 3 liczbe = '); readln(c); writeln; if a