[1]
1) begin. - точка ставится только в конце программы совместно с оператором end
2) write('Введите х: ); - строковый текст обязательно начинается с ' и обязательно заканчивается ', - в данном случае нет ' в конце
3) readln(x) - символ ; обязателен в конце оператора
4) if x div 2 = 0 then - div целочисленное деление. Для проверки на четность необходимо использовать mod - т.е. остаток от деления
5) writeln(Это четное число') - ошибка с '
6) else writeln('Это нечетное число); - ошибка с '
[2]
1) var x: integer - не указана ; в конце оператора
2) if (x≥10) and (x <= 100) then - нет такого условного оператора ≥, есть >=
3) if (x≥10) and (x <= 100) then - чтобы число проверку на двузначность, условие (x <= 100) должно быть строгим, т.е. (x < 100) или (x <= 99)
4) else writeln('Не двузначное число') - не указана ; в конце оператора
5) end - необходима точка в конце программы
[3]
2, 4, 7, 10, 11
[4]
var x: integer;
begin
ReadLn(x);
if x mod 5 = 0 then WriteLn('Число ', x, ' является кратным 5')
else WriteLn('Число ', x, ' не является кратным 5')
end.
[5]
var x: integer;
begin
ReadLn(x);
case x of
1: WriteLn('В понедельник 5 уроков');
2: WriteLn('Во вторник 6 уроков');
3: WriteLn('В среду 7 уроков');
4: WriteLn('В четверг 6 уроков');
5: WriteLn('В пятницу 5 уроков');
else WriteLn('В данный день нет уроков');
end;
end.
