Program Maks;
var a, b, max:integer;
begin
writeln('vvedite chetnoe chislo, a, b');
readln(a);
if a>b then max:=a else max:=b;
writeln(max);
readln;
end.
Да. Формула: N=2 в степени i, N=2^i
program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
В общем программы в текстовике, я их проверял они работают