бро, ну смотри, если больше ничего не сказано, то выходит как-то так:
на1 - Х
на2 - Х/2
на3 - 3Х/2
на4 - 2Х
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
Uses crt;
VAR A,B,C:integer;
begin clrscr;
A:=B*C
readkey;
end.