1) var a,b,c,h,P,S:real;
begin
writeln('Введите значение а: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
writeln('Введите значение h: ');
readln(h);
P:=a+b+c;
S:=1/2*a*h;
writeln('P = ',P);
writeln('S = ',S);
end.
2) var
y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then </p>
writeln('y = ',10*sqr(x))
else
if x>=0 then
writeln('y = ',3*x+2)
end.
3) var
y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<2 then </p>
writeln('y = ',sqr(x)+3)
else
if x=2 then
writeln('y = ',2*x)
else
if x>2 then
writeln('y = ',x-1);
end.