Скласти програму для обчислення значення функції

console.writeline("введіть n: ");

int n = console.readline();

int y = 0;

if(n == 1 || n == 2 || n == 3 || n == 4) {

y = 0;

}else if(n == 10 || n == 11 || n == 12) {

y = 1;

}else if(n == 15 || n == 19) {

y = 2;

}else{

y = 3;

}

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.