Пожалуйста посчитайте ПОЖАЛУЙСТА УМОЛЯЮ.

9. writeln('Четное') - не нужна ';'

10. я думаю, что if (x>99) and (x<=999) then - нужно записать так

11. 22

12. 63

13.

var name:string;

begin

writeln('Как тебя зовут? ');

read(name);

write('Привет, ',name,'!');

end.

14.

var c:integer;

begin

write('Введите число: '); read(c);

if c>0 then

write('Это число положительное');

if c=0 then

write('Это ноль');

if c<0 then

write('Это число отрицательное');

end.