сугоняк Э-112 ЛР1вар3

Program RECT;	{заголовок программы с именем RECT}
const	{блок описания констант}
        A=2; B=1.2; X1=0; C=1;           	 			                   {определение констант А и В}
var	{блок описания переменных}
       z:real;	 		                   {определение переменной S целым типом}
begin	{начало основного блока программы}
        z:=SQRT(A+B-EXP(SIN(X1))+C);	  		                                                      {оператор присваивания}
write('z = ',z: 5: 4);                                   {процедура вывода}
end.	{конец основного блока}