Ответ:
9. writeln('Четное') - не нужна ';'
10. я думаю, что if (x>99) and (x<=999) then - нужно записать так</p>
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
write('Это число отрицательное');
end.
Объяснение: