Дано координати вершин двох трикутників. Визначити, який з них має більшу площу. Створити дві процедури без параметрів: знаходження площі трикутника та визначення максимальної
Площі трикутника.​

Program Massive;

uses Crt;

const

  K = 3;

  L = 6;

var

  Z: array [1..K * L] of integer;

  R: array [1..K * L] of integer;

  Q: array [1..K * L] of integer;

  i: integer;

  x: integer;

begin

    Randomize;

    x := K * L;

    for i:= 1 to x do

    begin

      Z[i] := Random(20);

      R[i] := Random(10);

    end;

    ClrScr;

    writeln('Massive Z:');

    for i:= 1 to x do

        write(Z[i]:4);

    writeln;

    writeln('Massive R:');

    for i:= 1 to x do

        write(R[i]:4);

    writeln;

    for i:= 1 to x do

        Q[i]:= Z[i] * R[i] + 10;

    writeln('Massive Q:');

    for i:= 1 to x do

        write (Q[i]:4);

    readln

end.

1.
a:=10;
b:=20;
c:=30;
2.
При write(a) - выведется на экран просто значение а;
При write('a') - выведется просто буква "а";
При write('a=', a) - выведется на экран, например: a=10
3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275

4. 
a = 1;
b = 11;

5.

program pl;
var 
a, b : integer;
s, p : real;
begin
writeln("Введите первую сторону прямоугольника:");
readln(a);
writeln("Введите вторую сторону прямоугольника:");
readln(b);
p = 2*(a+b);
s = a*b;
writeln("Площадь прямоугольника равна:", s);
writeln("Периметр прямоугольника равен:", p);
end.