1.
var a,b,c:real;
begin
Readln(a,b);
c:=sqrt(a*a+b*b);
writeln('Периметр: ',a+b+c);
writeln('Площадь ',0.5*a*b);
end.
2.
var x,y:real;
readln(x);
if x<10 then
writeln('y=',5*x+6)
else
writeln('y=',x*x-5)
Объяснение:
1.
var a,b,c:real;
begin
Readln(a,b);
c:=sqrt(a*a+b*b);
writeln('Периметр: ',a+b+c);
writeln('Площадь ',0.5*a*b);
end.
2.
var x,y:real;
begin
readln(x);
if x<10 then
writeln('y=',5*x+6)
else
writeln('y=',x*x-5)
end.
Объяснение: