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

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!№1begin  Writeln(' a       b       x          z');  foreach var a in 0.55.Step(0.55).TakeWhile(t->t<=5.5) do begin    var b:=a<=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)    endend.№2begin  var a:=new string[4]('   *','  * *',' *   *','*     *');  (a+a[:4].Reverse).PrintLinesend.