Кто поможет в программировании?Паскаль

unit Geometr;

Interface

type
PType = record X, Y : Real; end; { точка }
CType = recodr X, Y, R : Real; end; { окружность }
TType = array [1..3] of PType; { треугольник }
RType = array [1..2] of PType; { прямоугольник стороны которого параллельны осям координат }

procedure InputPoint(X, Y : Real; var P : PType);
procedure InputCircle(X, Y, R : Real; var C: CType);
procedure InputTriangle(X1, Y1, X2, Y2, X3, Y3 : Real; var T: TType);
procedure InputRectangle(X1, Y1, X2, Y2 : Real; var R: RType);

procedure ReadPoint(Mess : String; var P : PType);
procedure ReadCircle(Mess : String; var C: CType);
procedure ReadTriangle(Mess : String; var T: TType);
procedure ReadRectangle(Mess : String; var R: RType);

Implementation

procedure InputPoint; begin P.X := X; P.Y := Y; end;
procedure InputCircle; begin C.X := X; C.Y := Y; C.R := R; end;
procedure InputTriangle; begin T[1].X := X1; T[1].Y := Y1; T[2].X := X2; T[2].Y := Y2; T[3].X := X3; T[3].Y := Y3; end;
procedure InputRectangle; begin T[1].X := X1; T[1].Y := Y1; T[2].X := X2; T[2].Y := Y2; end;

procedure ReadPoint; begin if Length(Mess) > 0 then WriteLn(Mess); Write('Х = '); ReadLn(P.X); Write('Y = '); ReadLn(P.Y); end;
procedure ReadCircle; begin if Length(Mess) > 0 then WriteLn(Mess); Write('Х = '); ReadLn(C.X); Write('Y = '); ReadLn(C.Y); Write('R = '); ReadLn(C.R); end;
procedure ReadTriangle; begin if Length(Mess) > 0 then WriteLn(Mess); ReadPoint('координаты 1 точки', T[1]); ReadPoint('координаты 2 точки', T[2]); ReadPoint('координаты 3 точки', T[3]); end;
procedure ReadRectangle; begin if Length(Mess) > 0 then WriteLn(Mess); ReadPoint('координаты левого нижнего угла', T[1]); ReadPoint('координаты правого верхнего', T[2]); end;

end.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
uses Geometr;
const Name = 'Triangls.dat';
var K, N : Byte; T : TType; F : File of TType; S : String;
begin Write('Число вводимых треугольников = '); ReadLn(K); Assign(F, Name); Rewrite(F); for N := 1 to K do begin Str(N, S); ReadTriangle('Введите координаты треугольника ' + S, T); Write(F, T); end; Close(F); end.

Зиночка, откройте тайну, откуда у вас тяга к халяве? Разве вы не знаете где лежит бесплатный сыр?
пиши в агент или icq 452371863

Клавиатура и пальцы тебе в помощь.

Вам же помоему уже сказали что за бесплатно это за вас никто делать не будет
темболее у вас даже нету своих наработок - вдруг что пишити на мыло