Var
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.
Что это? или это я тупая?
1 байт - 8 бит, следовательно числа -127 до 127.
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.