Составьте блок схему алгоритма вычисления выражения а=(х+7)^2+sin3x и запишите его на алгоритмическом языку

Http://ideone.com/H6W5HJ программа на Паскале.
при x=1 a =6.41411200080599E+001
 +Блок-схема.

1. 2. Имеются четыре основные составляющие информационной функции человека: прием (ввод) информации; запоминание информации (сохранение в памяти) ; процесс мышления (обработка информации) ; передача (вывод) информации. Компьютер включает в себя устройства, выполняющие эти функции мыслящего человека: устройства ввода; устройства запоминания — память; устройство обработки — процессор; устройства вывода.
3. В ходе работы компьютера информация через устройства ввода попадает в память. Затем процессор извлекает из памяти обрабатываемую информацию, работает с ней и помещает в нее результаты обработки. Полученные результаты через устройства вывода сообщаются человеку.
4.последовательность инструкций, предназначенная для исполненияустройством управления вычислительной машины. Программа — один из компонентов программногообеспечения. 
5.Главное отличие данных от программы в том, что первые являются носителем информационной нагрузки — файлами. Программа — средство создания, а также воспроизводства этой информационной нагрузки (в том виде, в котором она нужна пользователю).

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.