блок-схемы

Program qq;
uses crt,graph;
const t=0.0001;x0=320;y0=240;
function F(x,y:real):boolean;
begin
F:=((x>=-2)and(x<=-sqrt(2))and(y>=0)and(y<=-x))
   or((x>=-sqrt(2))and(x<=t)and(y>=0)and(y<=sqrt(4-x*x)))
   or((x>=0)and(x<=sqrt(2))and(y>=-x+2)and(y<=sqrt(4-x*x)))
   or((x>=sqrt(2))and(x<=2)and(y>=-x+2)and(y<=x))
   or((x>=2)and(x<=4)and(y>=x-2)and(y<=2));
end;
var x,y:real;
    k,i,p,m:integer;
    w:integer;
    s:string;
begin
clrscr;
writeln('KOORDINATY TOCHEK V OBLASTI:');
x:=-2.8;
k:=0;
while x<=5.2+t do
 begin
  y:=-0.5;
  while y<=2.5+t do
   begin
    if F(x,y) then
     begin
      k:=k+1;
      writeln('x=',x:4:1,'  y=',y:4:1);
      if k mod 15=0 then
       begin
        write('Press Enter...');
        readln
       end;
     end;
    y:=y+0.25;
   end;
  x:=x+0.4;
 end;
 
write('Press Enter...');
readln;
w:=0;
p:=0;
initgraph(w,p,'');
setbkcolor(15);
setcolor(8);
line(0,y0,640,y0);
line(x0,0,x0,470);
m:=round(getmaxX/13);
for i:=1 to 4 do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));{засечки на оси У}
    line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
    line(x0+round(i*m),y0-3,x0+round(i*m),Y0+3); {засечки на оси Х}
    line(x0-round(i*m),y0-3,x0-round(i*m),Y0+3);
    str(i,s);
    {подпись оси У}
    outtextXY(x0-30,y0-round(i*m),s);{соответственно засечкам}
    outtextXY(x0-35,y0+round(i*m),'-'+s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*m),y0+30,s);
    outtextXY(x0-round(i*m),y0+30,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,y0-230, 'Y');
{setcolor(8);}
circle(x0,y0,2*m);
line(x0-2*m,y0+m,x0-2*m,y0-3*m);
line(x0-m,y0-2*m,x0+5*m,y0-2*m);
line(x0-4*m,y0-4*m,x0+m,y0+m);
line(x0-2*m,y0-4*m,x0+3*m,y0+m);
line(x0-m,y0+m,x0+4*m,y0-4*m);
line(x0-m,y0+3*m,x0+5*m,y0-3*m);
setfillstyle(3,8);
floodfill(x0-2*m+2,y0-m,8);
floodfill(x0-m,y0-m+10,8);
floodfill(x0-20,y0-m-20,8);
floodfill(x0+m,y0-m-10,8);
floodfill(x0+m+20,y0-m,8);
floodfill(x0+2*m,y0-m,8);
readln;
closegraph
end.

program qq;
uses crt;
const n=15;
var a:array[1..n,1..n]of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      a[i,j]:=random(n*n);
      write(a[i,j]:4);
     end;
    writeln;
  end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then
  begin
    k:=1;
    writeln('Matrica ne simmetrichna!');
    readln;
    halt;
  end;
if k=0 then writeln('Matrica simmetrichna!');
readln
end.

 uses crt;
var f,g:text;
    i:integer;
    a:real;
    name1,name2:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name1);
name1:=name1+'.txt';
assign(f,name1);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name1);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name2);
name2:=name2+'.txt';
assign(g,name2);
rewrite(g);
i:=0;
while not eof(f) do
 begin
  read(f,a);
  i:=i+1;
  if i mod 5<>0 then write(g,a:0:2,' ');
 end;
close(f);
close(g);
write('Файл ',name1,' переписан в файл ',name2);
readln
end.

uses crt,graphABC;
const r=50;
var x,y,z,i,j,k:integer;
begin
x:=-50;
y:=50;
 repeat
   repeat
    x:=x+100;
    MoveTo(x+Round(r*cos(2*Pi*i/8)),y+Round(r*sin(2*Pi*i/8)));
         for i:=1 to 8 do
           LineTo(x+Round(r*cos(2*Pi*i/8)),y+Round(r*sin(2*Pi*i/8)));
   until x=650;
   x:=-50;
   y:=y+100;
 until y=650;
 end.