Program n1;
Var x:integer;
Begin
Writeln ('Программа находит z из уравнения z=14x*4-5x*3+|11x-7|*2');
Write ('Введите X = '); read(x);
Writeln ('Ответ Z = ', 14*x*4-5*x*3+abs(11*x-7)*2);
End.

/===============================================================================/


Program n2;
Var n, a, h, s, b:real;
begin
Writeln ('Программа находит площадь параллелограмма двумя способами');
Writeln ('1 - Через основание и высоту ');
Writeln ('2 - Через две стороны и угол между ними');
writeln();
Write ('Введите номер способа решения = '); read(n);
writeln();
If n=1 then 
Begin 
Write ('Введите основание = '); read (a); 
Write ('Введите высоту = '); read(h); 
S:=a*h; end 
Else 
Begin
Write ('Введите сторону (1) = '); read(a); 
Write ('Введите сторону (2) = '); read(b); 
Write ('Введите угол между сторонами = '); read(h);
S:=a*b*sin(h*pi/180);
End;
writeln('S = ',s);
end.