сугоняк Э-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. {конец основного блока}