Построить блок-схемы для программ

Program tablica; 
 uses crt;
 Var i,j:integer;
 begin clrscr;
 for i:=1 to 10 do
 Begin
 For j:=1 to 10 do 
 Write (i*j:4); 
 Writeln;
 End;
 End.

Program Vopros;
Var Q:char;
Begin
Writeln ('Kto ti: malchik ili devochka?');
Readln (Q);
Case Q of
'D','d': writeln ('Mne nravyatsya malchiki!');
'M','m': writeln ('Mne nravyatsya devochki!');
end;
end.

Program tochka;
Var x,y,k:integer;
Begin
Writeln ('x');
Readln (x);
writeln ('y');
readln (y);
writeln ('k');
readln (k);
Begin 
If y=k*x then writeln ('tochka lejit na pryamoi');
else writeln ('tochka ne lejit na pryamoi');
end;
end.

Program chislo;
var a,s:integer;
Begin 
Writeln ('s');
Readln (s);
Begin
a:=s div 100;
Writeln ('a=',a);
end;
end.

Program  treugolniki;
Var a,b,c,d:real;
begin
writeln ('a');
readln (a);
writeln ('b');
readln (b);
writeln ('c');
readln (c);
writeln ('d');
readln (d);
Begin
if (a=c) and (b=d) then writeln ('true')
else writeln ('false');
end;
end.

Program sutki;
var x,y,s,r:real;
begin
writeln ('x');
readln (x);
begin
y:=x*24;
s:=x*24*1440;
r:=x*24*1440*86400;
writeln ('y=',y:2:2);
writeln ('s=',s:2:2);
writeln ('r=',r:2:2);
end;
end.

program lab1;
label 1;
var po,cpo,e,x1,x2,x3,a,b,f,x1m,x2m,x3m,pom,cpom,em,fm,h,hm:real;
var i,j,k:integer;
begin
a:=-1;b:=1;fm:=0;
for i:=0 to 100 do begin;
x1:=a+i*(b-a)/100;
for j:=0 to 100 do begin;
x2:=a+j*(b-a)/100;
for k:=0 to 100 do begin;
x3:=a+i*(b-a)/100;
po:= 9.666503+0.12*x1 ;
cpo:= 9.00+0.46*x1+1.2*x2+0.46*x1*x2+0.58*x1*x3;
e := 8.44+0.13*x2;
h := 7.26+0.24*x2+0.20*x3-0.24*x1*x2*x3; 
f:=0.5 *(po-9.48)/(10.0425-9.48 )-0.2 *(cpo-7.28)/(12.335-7.28 )+0.3 *(e-8.1925)/(8.69-8.1925 )+(h-7.48)/(8.56-6.89);
if f<fm then goto 1;
fm:=f;x1m:=x1;x2m:=x2;x3m:=x3;pom:=po;cpom:=cpo;em:=e;hm:=h;
  
1:end;
end;
end;
writeln('fm=',fm,'  ','x1m=',x1m,'  ','x2m=',x2m,'  ','x3m=',x3m,'  ','pom=',pom,'  ','cpom=',cpom,'  ','em=',em,'  ','hm=',hm)
 
end.