Помогите с Контрольной работой

[sah]

Помогите, кто сможет, есть проблема с
12. Контрольная работа № 1 Вариант 3
Задание 6. Составить блок-схему алгоритма и программу на алгоритмическом языке Паскаль
Сылка на задание
<a href="mailto: sah-sah@yandex.ru">Черканите если что </a>

[Proud]

var z,x,t: real;
begin
  write('введите t: ');
  readln(t);
  x:=0.2;
  while x<=2 do
    begin
      if x<0.5 then z:=(sqr(ln(x))*ln(x) sqr(x))*sqrt(x t)
      else if x=0.5 then z:=sqrt(x t) 1/x
      else z:=cos(x) t*sqr(sin(x));
      writeln('x=',x:5:2,' z=', z:5:2);
      x:=x 0.2;
    end;
end.

[sah]

Большое спасибо Proud выручил  

[студент]

Благодори Proud(может это Надежда Михаловна)