Решить задачу в Паскале) функция у={ 1) 1,5 соs^2 2) 1,8ax. 3) (x-2) ^2+6. 4) 3tgx. Условие x<1. 12. Исходные данные а=2.3. Диапазон Х принадлежит [0.2; 2.8] и дельта Х = 0.2

Const z = 2.3; var s, d, f, j: real; i:integer; beginj:=0.2; while j < 2.9 dobegins : = 1.5*cos (j) * cos (j); writeln (j:4:2, s : 9:6); j: = j + 0.2; end; writeln; j:=0.2; while j < 2.9 dobegins : = 1.8*z*j; writeln (j:4:2, s : 12:6); j: = j + 0.2; end; writeln; j:=0.2; while j < 2.9 dobegins : = (j-2) * (j-2) + 6; writeln (j:4:2, s : 9:6); j: = j + 0.2; end; writeln; j:=0.2; while j < 2.9 dobegins : = 3 * sin (j) / cos (j); writeln (j:4:2, s : 12:6); j: = j + 0.2; end; end.