program c1;
var
a,k:integer;
begin
writeln( ' Введите число в диапазоне от 1 до 10: ')
read(a);
if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');
end.
Если язык паскаль, то вот программа:
Program p1;
var x,y:real;
begin
writeln('введите x');
readln(x);
if x<=-1 then y:=-3
else
if x>0 then y:=(-1)*x;
writeln(y);
readln
end.
вроде как-то так если что-то не так не обежайтесь
Тело:
var a,b,c:integer; m:boolean;beginm:=True;read(a,b,c);if (a+b<0) or (b+c<0) or (a+c<0) then m:=False;write(m);end.