uses crt; <em>{подключение модуля CRT}</em>
var
x: integer;<em> {описание переменных}</em>
begin <em>{начало программы}</em>
writeln('vvedi chislo: '); <em>{вывод текста на экран}</em>
read(x);<em> {чтение введеных данных}</em>
if (x mod 3 = 0) then x:=x+1 <em>{условие}</em>
else x:=x-2; <em>{если условие не выполняется}</em>
write('rezultat: ',x);<em> {вывод текста на экран}</em>
end. <em>{конец программы}</em>
Это же так просто! Удачи, ответ во вложении. Только там в конце опечатка у меня...
3. пуск
5. раскрывающийся
6. мышка
7. окно
9. может быть - графическое
10. программы
1. справка
2. стрелка
4. список
6.
8. отмена
367. в инете полно сайтов по переводу)