Написать программу паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)

program name; uses crt; var a,b,c,d,e: real; begin

clrscr; write('введите стоимость 1ой тетради: '); readln(a); write('введите стоимость 2ой тетради: '); readln(b); write('введите стоимость 3ей тетради: '); readln(c); write('введите стоимость обложки: '); readln(d); e: =a+b+c+d*3; write('стоимость всех вещей равна: ',e: 3: 2,' руб.'); readln; end.

 

Const  n=3;   var a: array[1..n, 1..n] of integer;   i,j,s: integer;   begin  s: =0;   writeln('введите элементы матрицы');   for i: =1 to n do  for j: =1 to n do begin  read(a[i,j]);   if i< j then s: =s+a[i,j];   end;   writeln;   for i: =1 to n do begin  for j: =1 to n do write(a[i,j], ' ');   writeln;   end;   writeln('сумма всех элементов над главной диагональю = ',s);   end.

Var       i, min, n, d: integer; begin       readln(n);       min: =30000;             for i : = 1 to n do       begin               readln(d);               if (d mod 2 = 0) and (min> d) then                       min: =d       end;             writeln(min); end.