Помогите, пожалуйста, написать программку на Паскале!!!! Безотлагательно.Вариант 3

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

1

begin
  Writeln(' a       b       x          z');
  foreach var a in 0.55.Step(0.55).TakeWhile(t-gt;tlt;=5.5) do begin
    var b:=alt;=2?a/2:2*a;
    var x:=a+0.3;
    var z:=a*Sin(x)+b*Cos(x);
    Writeln(a:4:2,b:8:2,x:8:2,z:12:6)
    end
end.

2

begin
  var a:=new string[4]('   *','  * *',' *   *','*     *');
  (a+a[:4].Reverse).PrintLines
end.