1)
var x,y:real;
begin
write('Введите число ');
readln(x);
if x<3 then y:=x*x-5;<br>if (x>=3) and (x<=7) then y:=x;<br>if x>7 then y:=x-3;
writeln(y)
end.
2)
var x,y,s,p:real;
begin
readln(x,y);
s:=(x+y)/2;
p:=2*x*y;
if x begin
x:=s;
y:=p
end
else
begin
y:=s;
x:=p
end;
writeln('x=',x,'; y=',y)
end.
3)
var
a,b,s:real;
sim:char;
f:boolean;
Begin
f:=true;
writeln('Введите два числа');
readln(a,b);
writeln('Введите знак операции');
readln(sim);
case sim of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b
else f:=false
end;
if f then writeln ('результат ',a,sim,b,' = ',s)
else writeln('Введена некорректная арифметическая операция')
End.
4)
var x,y,min,max:real;
Begin
writeln('Введите два числа');
readln(x,y);
if x begin
min:=x;
max:=y
end
else
begin
min:=y;
max:=x
end;
writeln ('min=',min,'; max=',max,'; min+max=',min+max)
End.