Var
a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
k: integer;
begin
readln(k);
writeln(a[k]);
end.
Думаю будет полезен для тебя такой сайт - numsys*ru
Это калькулятор систем счисления, как перевод из одной в другую, так и сложение/вычитание/деление/умножение.
1*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+16+4+1=53
(2^5- два в степени 5, 2^4-два в степени 4 и т.д )
Program _1;
Var
x,fx:integer;
begin
writeln('Введите значение X');
readln(x);
if (x>0) then
begin
fx:=x;
end;
if (x=0) then
beginfx:=0;
end;
if (x<0) then
begin
fx:=-sqr(x);
end;
writeln('F(x): ',fx);
end.