7.Написать программку на Паскале вычисления значения функции (х^2 при хamp;gt;0х-12 при

//7.Написать программку на Паскале вычисления значения функции(х^2 при хgt;0 х-12 при х0)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if xgt;0 then writeln('Ответ ', power(x,2))
else writeln('Ответ ', x-12);
end.

//8.Написать программку на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.

var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.

//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6

var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 15*power(x,3)+3*power(x,2)-6)
end.

//10.Написать программку на Паскале вычисления значения функции(х^2+5х-4 при хgt;3х при х3)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if xgt;3 then writeln('Ответ ', power(x,2)+5*x-4)
else writeln('Ответ ', x);
end.