Var
y, x : integer;
begin
readln(x);
if x >= 1 then
y := 1
else if (x > -1) and (x < 1) then
y := 0
else if x < 0 then
y := -1;
writeln(y);
end
1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт
В ютубе вбей - "Уроки по AbobeAfterEffects" или "Как сделать инфографику в After Effects"
Программа After Effects. Программа проста в освоении, но придется потренироваться
===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))