PABC #1

Очкастый китаец добрался до Паскаля!

Program GRAPHICS2_1;
uses graphabc, crt;
Var x0,y0:integer; str1,str2:string; b1,b2:boolean;
Const num=50; diag=25;
Begin
Writeln('Задайте координаты центральной точки');
Readln(x0,y0);
SetBrushColor(Black);

Writeln('Звезду нннннада?');
Readln(str1);
If str1='нннннада' Then b1:=true;
Writeln('А контуры нннннада?');
Readln(str2);
If str1='нннннада' Then b2:=true;
If B1=True Then Begin
Line(x0+15,y0+15,x0+num,y0);
Line(x0+15,y0+15,x0,y0+num);
Line(x0-15,y0+15,x0,y0+num);
Line(x0+15,y0-15,x0+num,y0);
Line(x0+15,y0-15,x0,y0-num);
Line(x0-15,y0-15,x0-num,y0);
Line(x0-15,y0-15,x0,y0-num);
Line(x0-15,y0+15,x0-num,y0);
end;
If B2=True Then Begin
Line(x0,y0,x0+num,y0);
Line(x0,y0,x0-num,y0);
Line(x0,y0,x0,y0+num);
Line(x0,y0,x0,y0-num);

Line(x0,y0,x0+diag,y0+diag);
Line(x0,y0,x0-diag,y0+diag);
Line(x0,y0,x0+diag,y0-diag);
Line(x0,y0,x0-diag,y0-diag);

Line(x0-num,y0,x0,y0+num);
Line(x0+num,y0,x0,y0+num);
Line(x0-num,y0,x0,y0-num);
Line(x0+num,y0,x0,y0-num);
end;
End.