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.
как из этого сделать чтобы маленький квадрат был в центре ?

Вот на Pascal (Console Aplication) :
var   
  a:Integer;
begin 
Writeln('Vvedite nominal valuti'); 
Readln(a); 
case (a mod 10) of   
1:   
if (a=11) then     
Writeln('Y Vas est ',a,' rublei')   
else   
begin     
Writeln('Y Vas est ',a,' rubl');   
end;
2,3,4:   
if (a=12) or (a=13) or (a=14) then   
Writeln('Y Vas est ',a,' rublei')   
else   
begin   
Writeln('Y Vas est ',a,' rublya');   
end;
0,5,6,7,8,9:   
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then   
Writeln('Y Vas est ',a,' rublei')   
else   
begin   
Writeln('Y Vas est ',a,' rublei');   
end; 
end;
Readln;
end.

Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности[1].

Согласно ГОСТ 27201-87 ПК применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не обладающих специальными знаниями в области вычислительной техники и программирования.

Изначально компьютер был создан как вычислительная машина, в качестве ПК он так же используется в других целях — как средство доступа в информационные сети и как платформа для компьютерных игр.