var
x, y: integer;
begin
x := 6;
y := 6;
{Левая вертикаль}
for y := 2 to 8 do
begin
if ((y = 2) or (y = 8)) then
begin
for x := 1 to 5 do
begin
WriteLn(x, ', ', y);
end;
end
else
begin
WriteLn('1, ', y);
WriteLn('5, ', y);
end;
end;
{Горизонталь}
x := 1;
y := 4;
for x := 1 to 5 do
begin
WriteLn(x, ', ', y);
end;
{Нижняя горизонталь}
y := 8;
for x := 2 to 4 do
begin
WriteLn(x, ', ', y);
end;
{Вывод точек в нужных местах}
WriteLn('2, 5');
WriteLn('3, 5');
WriteLn('4, 5');
end.