Program logo;
Uses crt;
Var i:integer;
type uczen = record
          nrucznia:integer;
          wiek:string[4];
          klasa:string[20];
          imie:string[20];
          nazwisko:string[30];
          end;

BEGIN
    Writeln('************************************');
    Writeln('*                                  *');
    Writeln('* Zesp˘� Szk˘� Budowlano-Drzewnych *');
    Writeln('*                                  *');
    Writeln('*           XxX          *');
    Writeln('*                                  *');
    Writeln('*             Klasa          *');
    Writeln('*                                  *');
    Writeln('*           ˝ywiec 2005            *');
    Writeln('*                                  *');
    Writeln('************************************');
    delay(4000);
    repeat;
    clrscr;
        writeln('');
        writeln('');
        writeln(' menu ');
        writeln('1.Rekordy');
        writeln('2.Funkcja Fx');
        writeln('3.Algorytm');
        writeln('0.Koniec');
        writeln('');
        writeln('');
          write('Co chcesz zrobic?: ');
          readln(i);
    CASE i of
         1:    Begin
                   Writeln('wybrales instukcje rekordy');


Var ucz:uczen;
   a:char;
   prawda:boolean;

FUNCTION sprawdz(var st:string) of integer;
var i:integer;
begin
       if st[0]<65 and st[0]>90 then
       begin
               writeln('pierwszy znak jest bledny');
               return(0);{sprawdz:=0;}
               exit;
       end;
       for i:=1 to do
               if st[i]<95 and st[i]>122then
               begin
                       if st[i]=0
                       begin
                               return(2);
                               exit
end;

         2:    Begin
                   Writeln('wybrales instrukcje funkcja Fx');
        Var a,b,ab,k: real; {6B globalne}
            i,n: word; {2B lokalne}

Begin

  write('podaj wartosc',n,'liczby');
  read(n);
     if (n>9) and (n<1001) then
        writeln('podaj: ');
           write('poczatek wektora',a,');
           read(a);
           write('koniec wektora',b,');
           read(b);
           write('podzial wektora = ');
           read(n);
     ab:=b-a;
        k:=ab/n;{krok}
           for i:=0 to n-1 do;
              tab[i+1,1]:=a+i*k;
           for i:=1 to n do;
              tab[i+2]:=tab[i,1]*tab[i,1];
end;
         3:    Begin
                   Writeln('wybales instrukcje algorytm');
        Var a,b,M,N : word; {2B globalne}
            wynik : real; {6B globalne}
            aa:char;

FUNCTION ilo : real;

Var i: word;{lokalne}
  ilo1,x: real;{lokalne}

Begin
       ilo1:=1;
       for i:=1 to N do
               if N>0 then
               begin
                       write('podaj wartosc x',i,'liczby');
                       readln(x);
                       ilo1:=ilo1*(x*x);
               end
               else
               ilo1:=0;
       ilo:=ilo1 ;
end;

FUNCTION suma : real;

Var j: word;{lokalne}
  sum,y: real;{lokalne}

Begin

  sum:=0;
    for j:=1 to M do
    begin
      write('podaj wartosc y',j,'liczby');
      readln(y);
      sum:=sum+(y*y*y);
   end;
   suma:=sum;
end;

FUNCTION Sc(il:real) : real;
Begin
     Sc:=(il+b)*(il+b);
end;

Begin
aa:='q';
   repeat
      writeln('podaj: ');

        write('N= ');
        read(N);
        write('M= ');
        read(M);
        write('a= ');
        read(a);
        write('b= ');
        read(b);


  wynik:=a*Sc(ilo)*suma;

      write('Wynik= ',wynik );
      writeln('czy koniec nacisnij 0');
      readln(aa);
  until aa='0';
end;

         0:    Begin
                   Writeln('wybrales koniec');
               end;
    end;
      delay(3000);
      until i=0;
END.