№1
var k,s:integer;
begin
k:=17;
if k div 2>10 then s:=k
else s:=k mod 2
writeln(s);
end.

№2
задача. Определить, является ли введенное число четным числом.

1. Подключить текстовый модуль.
2. Описать переменные.
3. Начало программы
4. ввести целое число
5. Проверить является ли введенное число - четным и ввывести соответствующие сообщения
(четное,нечетное)
6. Конец программы.

№3
Найти и исправить все ошибки
задача. Даны два вещественных числа. Уменьшить первое число в пять раз,если оно
больше второго по абсолютной величине.
ucec crt;
var a,b;integer;
begin
writeln(введите два вещественных числа,a,b);
readln();
if sqr(a)<abs(b)
else a:=a/5;
readln(b);
end.

№4
1. Заданы три числа x, y, z. Вычислить произведение только отрицательных чисел из трех данных.

2. Ввести два числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

3. Задано натуральное число a. Является ли оно кратным 7?

4. Задано натуральное число a. Заканчивается ли оно на 0?

5. Дано двузначное число. Является ли сумма его цифр однозначным числом или двузначным числом.

6. Задано двухзначное число. Дайте характеристику числа по следующему плану:

- сумма цифр числа;

- число большее (меньше) пятидесяти;

- первая цифра равна (неравна) второй цифре.

7. Дано три числа x, y, z. Вычислить количество чисел больших 7.

8. Даны два вещественных числа. Уменьшить первое число в пять раз, если оно больше второго по абсолютной величине.