Народ, у меня практика идет, не успеваю с задачами по Паскалю... Кому не трудно и кто шарит помогите пару задачик решить

по первому
program bla-bla-bla
var a: integer;
begin
writeln('chislo');
readln(a)
if a>0 then a:=a+1 else a:=a-2;
writeln(a);
readln;
end.

по второму
program bla-bla-bla
var k: integer;
begin
writeln('chislo');
readln(a)
case k of
1: writeln('ploho');
2: writeln('neud');
3: writeln('ud');
4: writeln('horosho');
5: writeln('otl');
else writeln ('oshibka');
readln;
end.

У Дениса небольшая ошибка
5: writeln('otl');
else writeln ('oshibka');

Перед else ; не ставят
Правильно будет
5: writeln('otl')
else writeln ('oshibka');

Не стыдно вам самому не решить эти задачи ?!
№1
Program aa;
Uses crt;
Var
n: integer;
f: real;
Begin
write ('Введите число: '); readln (n);
if n>=0 then
inc(n)
else
n:=n-2;
write ('Ответ: ',n)
End.

№2
Program aa;
Uses crt;
Var
K: integer;
Begin
write ('Введите оценку: '); readln (k);
case k of
1: write ('Плохо');
2: write ('Неудовлетворительно');
3: write ('Удовлетворительно');
4: write ('Хорошо');
5: write ('Отлично')
else
write ('Ошибка');
end
End.

1)
var
n: integer;
begin
write('Vvedite chislo: ')
readln(n);
if n > 0 then n := n + 1 else n := n - 2;
writeln(n);
end.

2)
var
k: integer;
begin
write('Vvedite k: ');
readln(k);
case k of
1: writeln('ploho');
2: writeln('neudovletvoritelno');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.

Program one;
var x: integer;

Begin

write('x='); readln(x);

if x>0 then
x:=x+1;

else
x:=x-2;

writeln('x=', x);

End.

Program 2;
var k: integer;

Begin

write('k=');
readln(k);

case k of
1: writeln('ploho');
2: writeln('neudovletvoritelno');
3: writeln('udovletvoritelno);
4: writeln('horosho');
5: writeln('otlichno') ;
else writeln('error');
end;

End.

2 Сали-Мали: Синтаксис case на Pascal

case expression of
values_l: statement_l;
values_2: statement_2;
...
values_n: statement_n;
else
statement;
end;