Первый код

SLU.PAS Программа решает систему линейных уравнений, состоящую из трёх уравнений с тремя неизвестными.

uses crt;
var x1,x2,x3,a11,a12,a13,a21,a22,a23,a31,a32,a33,b1,b2,b3,D,D1,D2,D3:real;
begin
ClrScr;
 Writeln('                Эта программа решает систему линейных уравнени,');
 WriteLn('          состоящию из трёх уравнений с  тремя неизвестными: x1, x2, x3.');
 WriteLn(' ');

 Writeln('Введите,по порядку, коэффициенты стоящие перед неизвестными в первом уравнении.');
 ReadLn(a11, a12, a13);

 Writeln('Введите коэффициенты стоящие перед неизвестными во втором уравнении.');
 ReadLn(a21, a22, a23);

 WriteLn('Введите коэффициенты стоящие перед неизвестными в третьем уравнении.');
 Readln(a31, a32, a33);

 WriteLn('Введите чему равно первое уравнение.');
 ReadLn(b1);

 WriteLn('Введите чему равно второе уравнение.');
 ReadLn(b2);

 Writeln('Введите чему равно третье уравнение.');
 ReadLn(b3);

 D:=a11*a22*a33+a12*a23*a31+a13*a21*a32-a13*a22*a31-a23*a32*a11-a33*a12*a21;
 if D=0 then Begin
             clrscr;
             WriteLn('Система уравнений несовместна или у неё бесконечно много решений.');
             ReadLn;
             ClrScr;
             WriteLn('Copyright (c) 2004, Бравиков Дмитрий.');

             End

        else

             Begin
             ClrScr;
  D1:=b1*a22*a33+a12*a23*b3+a13*b2*a32-a13*a22*b3-a23*a32*b1-a33*a12*b2;
  D2:=a11*b2*a33+b1*a23*a31+a13*a21*b3-a13*b2*a31-a23*b3*a11-a33*b1*a21;
  D3:=a11*a22*b3+a12*b2*a31+b1*a21*a32-b1*a22*a31-b2*a32*a11-b3*a12*a21;

  x1:=D1/D;
  x2:=D2/D;
  x3:=D3/D;

  WriteLn('Ответ:');
  WriteLn('x1=',x1);
  WriteLn('x2=',x2);
  WriteLn('x3=',x3);
  Readln;
  End;

 ClrScr;
 WriteLn('Copyright (c) 2004, Бравиков Дмитрий.');
readln;
end.

FUN.PAS Программа, рассчитывающая два периода графика функции y=n*cos(n*x+π/3).

uses crt;
var x0,y,x,T,n,nT,dx:real; K, i:integer;

begin
ClrScr;
WriteLn('Программа расчитывает координаты функциии y=n*cos(n*x+pi/3)');
WriteLn('Где n - произвольное число'); Writeln(' '); Writeln(' ');
WriteLn('Для продолжения нажмите Enter');
Readln;
ClrScr;

WriteLn('Введите значение n.');
Readln(n);

WriteLn('Введите начальное значение аргумента x.');
ReadLn(x0);

WriteLn('Введите сколько необходимо расчитать точек.');
Readln(K);

Writeln('Введите сколько необходимо расчитать периодов функции');
ReadLn(nT);

T:=360/n;
dx:=nT*T/(K-1);
x:=x0;
i:=1;
clrscr;
Writeln('          X                         Y'); WriteLn('  ');
while i<=K do
begin
y:=n*Cos(n*x*pi/180+pi/3);
writeln(x,'   ',y);
x:=x+dx;
i:=i+1;
end;
readln;
clrscr;
WriteLn('Copyright (c) 2004, Бравиков Дмитрий.');
readln;
end.

VREMYA.PAS Программа, определяющая время года по заданному месяцу.

Program vremya_goda;
uses graph, crt;
var Nm:integer;
begin
 clrscr;
 Writeln('Введите номер месяца (число от 1 до 12) и нажмите <Enter>');
 ReadLn(Nm);
 case Nm of
            12,1,2: Writeln('ЗИМА');
            3..5: Writeln('ВЕСНА');
            6..8: Writeln('ЛЕТО');
            9..11: writeln('ОСЕНЬ');
          else writeln('Ошибка ввода данных.');

 end;
 readln;
End.

TEST.PAS Программа тестирующая пользователя по истории архитектуры.

uses crt;
var N:integer;
begin
clrscr;
Writeln('             Тест по истории архитектуры '); writeln(' ');
Writeln('Для начала теста нажмите <Enter>');
readln;
clrscr;
Writeln('Введите номер правильного ответа и нажмите <Enter>'); Writeln(' ');
Writeln('Архитектор Исаакиевского собора:');
Writeln(' 1. Доменико Трензини');
Writeln(' 2. Огюст Монферран');
Writeln(' 3. Карл Росси');
readln(N);

If N=2 then Writeln('Правильно.')
       else WriteLn('Вы ошиблись.');
Writeln('Архитектор Исаакиевского собора - Огюст Монферран.');
readln;
end.