Помогите пожалуйста составить к этой программе блок-схему и описать основные модули и операторы, пожалуйста.

program prog7;
uses crt;
var a,b,h,y,x:real;
n,k:integer;
begin
a:=-2;b:=7;h:=0.1;n:=15;
k:=0;x:=a;
y:=x*x*exp(-x);
repeat
k:=k+1;if (k mod 15)=0 then readln;
write(‘__________’);write(‘__________’);write(‘__________’);
writeln;
write(‘|    N    |’);write(‘    x    |’);write(‘    y    |’);
writeln;
write(‘    ’,k,’    ’);write(x:1);write(y:1);
writeln;
x:=x+h;
y:=x*x*exp(-x);
until x>b;
end.