Модуль Turtle: Используя команду int(input(), спросите какая площадь квадрата, а затем нарисуйте квадрат с заданной площадью. Закрасьте красным цветом.

Program hockey;

uses
  crt;

type
  hk = record
    name: string[20];
    shyiba: record
      gol_per: integer;
      gol: integer;
      straf_time: integer
    end
  end;

var
  hokiyArray, hokiyArray01: array[1..100] of hk;
  i, n: integer;
  f: text;

begin
  Assign(f, 'test.txt');
  Rewrite(f);
  Writeln('ДИНАМО ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray[i] do
      Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
 
  Assign(f, 'test01.txt');
  Rewrite(f);
  Writeln('СПАРТАК ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray01[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray01[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray01[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray01[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray01[i] do
      Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f)
 
end.