7. program n7;
var a: real;
begin
writeln ('Введите число');
readln (a);
if (a>-10) and (a<10) then </p>
a:= a + 5
else
a:= a-10;
writeln (a);
end.
8. program n8;
var a: real;
begin
writeln ('Введите число');
readln (a);
if (a>100) and (a<-100) then </p>
a:=0
else
a:= a+1;
writeln (a);
end.
9. program n9;
var a: real;
begin
writeln ('Введите число');
readln (a);
if (a>=2) and (a<=5) then </p>
a:= a+10
else
if (a>=7) and (a
a:= a-100
else
if (a<=0) or (a>3000) then
a:= a*3
else
a:= 0;
writeln (a);
end.