Uses GraphABC;
Var x,r,y:integer;
Procedure Kvadrat;
begin
rectangle(x,y,x+r,y+r);
end;
begin
SetWindowSize(600,100);
setbrushstyle(bsclear);
y:=100; x:=100;
r:=25;
while r<300 do
begin
Kvadrat;
r:=r+25
end;
End.
как из этого сделать чтобы маленький квадрат был в центре ?

ответ:

отдел +;

использует приём из "", вывод из "";

пер

  n, сумма, сч, скор, макс: цел;

указ

  сумма : = 0;

  макс : = 0;

  вывод.цепь("введите число автомобилей: ");

  n : = приём.число();

  если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе

    вывод.цепь("^введите скорости: ^");

    от сч : = 1 до n вып

      скор : = приём.число();

      если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;

      увеличить(сумма, скор);

      если скор > макс то макс : = скор кон;

      вывод.цепь(" ")

    кон

  кон;

  вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);

  если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон

кон .

объяснение:

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i; i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.