Помогите составить блок-схему!!! И записать всё на языке Паскаль!!!


Составить блок-схему алгоритма и программу на алгоритмическом языке Паскаль.
функция: y={a*lgx+(x)^1/3; 2a*cosx+3*x^2}
условие: a=0.9
исходные данные: x>1; x<=1
Диапазон и план изменения аргумента: x принадлеж. промежутку [0.8; 2]
дельта x=0,1

А поиском воспользоваться слабо?
аналогичная http://www.opeople.ru/topic8743.html
блок-схемы http://www.opeople.ru/ipb.html?s=&showtopi...ndpost&p=166770

program primer;
var x:real; a:integer; y:char;
Begin
{a*lg(x)+(x)^1/3, 2*a*cos(x)+3*x^2}
while a=0.9 do;
x:=0.8;
while x<2.1 do
begin
x:=x+0.1;
end;

мне кажется, что условия не выполняются до конца или не полностью записаны?????

a - константа

первый while не нужен
во втором - вычисление своего y добавь и вывод