нужно составить 2 блок схемы

[luhan]

Помогите пожалуйста составить блок схему.
1)

var
  x,y,f: real;
begin
  write('Введите x, y: ');
  readln(x,y);
  if ((x<=0) and (x*x+y*y<=1))
    or ((x<=0) and (y<=0) and (x>=-1) and (y>=-2))
      or ((x>=0) and (y<=0) and (x-y<=2)) then
        f:=1/sin(x)+ln(abs(y))
        else f:=x*x*x+x*x*y+y*y*y;
  writeln('f = ',f:0:5);
  readln;
end.

2)

uses crt;
var m,n,i,k:integer;
    s,y:real;
begin
clrscr;
repeat
writeln('Введите m>1 m=');
readln(m);
until m>1;
repeat
writeln('Введите n>2 n=');
readln(n);
until n>2;
y:=1;
for i:=2 to m do
 begin
  s:=0;
  k:=1;
  while k<=n do
   begin
    s:=s+3.5*k+1.2*i;
    k:=2*k;
   end;
  y:=y*ln(s)/ln(10);
 end;
writeln('Произведение=',y:0:3);
y:=0;
for i:=1 to n-2 do
y:=y+(i+n)/(i+m);
write('Сумма=',y:0:3);
readln
end.

[Вадим Мошев]

www.FCEditor.ru

[luhan]

Сообщение от Вадим Мошев

www.FCEditor.ru

выдает постоянно ошибку
1) Language=Delphi7
Action=SyntaxError
LineNumber=1
LinePosition=4
LineText=var
Description=Expecting the following tokens, RedNo=, Value=LIBRARY PACKAGE PROGRAM UNIT , TabIndex=
2) Language=Delphi7
Action=SyntaxError
LineNumber=1
LinePosition=5
LineText=uses
Description=Expecting the following tokens, RedNo=, Value=LIBRARY PACKAGE PROGRAM UNIT , TabIndex=

[BDA]

Допишите PROGRAM N1; первой строкой в каждом коде.