Меню, которое открывается выбором кнопки пуск

Проводник или стартовое меню

Program nuli;   uses crt;   const m=8;   type mat = array [1..m,1..m] of integer;   var i,j: integer;         a: mat; begin clrscr;   writeln ('old massiv: ');     for i: =1 to m do     begin         for j: =1 to m do         begin             a[i,j]: =10+random(90);             write(a[i,j]: 4);         end;     writeln;     end;   writeln;   writeln ('new massiv: ');     for i: =1 to m do         for j: =1 to m do             if j< =(m-i) then  a[i,j]: =0;     for i: =1 to m do     begin         for j: =1 to m do         begin             write(a[i,j]: 4);         end;     writeln;     end;     writeln;   readln; end.

Программа может выглядеть так: program func;   uses crt;   var  a,b: integer;           rez, fa, fb: integer; begin                                            ;   clrscr;   a: =4;   b: =-5;   fa: =3*sqr(a)+4*a-5;   fb: =3*sqr(b)+4*b-5;   rez: =fa+fb;   writeln('f(4)=', fa);   writeln('f(5)=', fb);   writeln('f(4)+f(5)=', rez);   readln; end.                                                         ,