program svin4;
uses graph;
const
start=25;
finish=175;
var
GraphDriver: integer;
GraphMode: integer;
errorcode: integer;
x1,y1,x2,y2: integer;
step: integer;
begin
writeln('свин просит ввести число только не меньше 1 а то зависнем');
readln(Step);
begin
graphdriver:= Detect;
initgraph(graphdriver, graphmode, '');
if errorcode <> grOk then
begin
writeln('графическая ошибка:   ',GraphErrorMsg(ErrorCode));
writeln('возможно у вас нет графической платы!)');
writeln('программа прерывается...');
readln;
halt(1)
end;
y1 := start;{ 25 }{}{}{}{}{}{}{}{}{}{}{}
y2 := finish;{ 175 }
x1 :=start;
while x1 <= finish do
begin
x2 := (start+finish) -x1;
Line(x1,y1,x2,y2);

x1 :=x1+Step;
end;
x1 :=start;
x2 :=finish;
while y1 <= finish do
begin
y2 := (start+finish) - y1;
line(x1,y1,x2,y2);
y1:=y1+step;     {}{}{}{}{}{}{}{}{}
end;
outText('нажмите <enter> чтобы закончить программу Свина');
readln;
closegraph;
end;
end. {svin4}