function IsSimpleNumber(n: integer): boolean; var i: integer; begin IsSimpleNumber := true;
for i := 2 to round(sqrt(n) + 1) do if n mod i = 0 then begin IsSimpleNumber := false; exit; end; end;
begin read(n); prev := 0;
for i := n to 2 * n do if IsSimpleNumber(i) then if prev = 0 then prev := i else if i - prev = 2 then begin writeln(i, ', ', prev, ' - близнецы'); halt; end else prev := i;
var i: integer;
procedure Montain (x,y,k: integer);
begin
setpenwidth(1);
setpencolor(clgreen);
line(x,y,x-(30*k),y+(30*k));
line(x,y,x+(30*k),y+(30*k));
line(x+(30*k),y+(30*k),x-(30*k),y+(30*k));
floodfill(x,y+10,clgreen);
setpencolor(clbrown);
line(x,y,x-(20*k),y+(20*k));
line(x,y,x+(20*k),y+(20*k));
line(x+(20*k),y+(20*k),x-(20*k),y+(20*k));
floodfill(x,y+10,clbrown);
setpencolor(clwhite);
line(x,y,x-(10*k),y+(10*k));
line(x,y,x+(10*k),y+(10*k));
line(x+(10*k),y+(10*k),x-(10*k),y+(10*k));
floodfill(x,y+5,clwhite);
end;
begin
setpencolor(clnavy);
setwindowsize(900,600);
clearwindow(clnavy);
for i:=1 to 100 do
begin
setbrushcolor(rgb(random(255),random(255),random(255)));
circle(random(700)+200,random(180),3);
end;
setbrushcolor(clgreen);
rectangle(0,350,900,600);
setpencolor(clblue);
arc(900,1300,900,0,180);
floodfill(800,500,clblue);
Montain (500,150,7);
Montain (700,170,6);
Montain (300,200,5);
Montain (200,270,3);
Montain (600,270,3);
Montain (400,270,2);
Montain (50,300,2);
setpencolor(clteal);
arc(500,1250,900,80,180)
arc(800,1250,900,95,180);floodfill(100,500,clOlive);
setpencolor(clwhite);
arc(100,100,50,-84,180);
arc(70,130,40,-30,150);
floodfill(100,100,clwhite);
end.
плагиат ,конечно, но всё же