[igyulperi]

помогите, пожалуйста, составить структурную схему!!!

Код:

program Project11;

{$APPTYPE CONSOLE}

{uses
  SysUtils;}

var x:real;
  n,s:integer;
  var m,a,r: real;

begin
  r:=Sin(x);
  a:=Sin(x)-3;
  m:=Abs(r/a);
  Writeln('x-?');
  Readln(x);
  Writeln;{начинает новую строку}
  Writeln('ans=',(x):5:2);
  writeln;
  writeln;
  readln;

end.

Админ: Пользуемся тегами для оформления кода!