Помогите написать простую программу к этому заднию, срочно, пожалуйста

Question

Помогите написать простую программу к этому заднию, срочно, пожалуйста

---

Comments

если х>1 там получается с параметром "а " выводить?

---

да

Answer 1

Var x:real;
begin
x:=-1;
while x<=5 do<br>begin
if x<1 write(sin(x):3:3,'  ');<br>if x=1 write (1,'  ');
if x>1 write ('a', cos(pi*x):3:3,' ');
x:=x+0.5;
end;
end.