//
var y:integer;
begin
write('введите ');
readln(y);
if y>21
then y:=y*2
else y:=y-2 ;
writeln('рез=' ,y);
end.
1 простое условие
2. составное условие
3. если а больше 10 тогда у увеличить а в 3 раза иначе уменьшить на 3
4. если а отрицательное, тогда у сделать равным 5, иначе уменьшить на 5
5. если а положительное, тогда у увеличить его в 4 раза иначе уменьшить на 4
6. если а нечетное, то написать слово нечетное, иначе написать слово четное
7. если а четное, написать слово четное, иначе уменьшить на 7
В номерах 8-10 дано только условие, остальное придумать самим
8. если а кратно 7
9. если а положительное и b четное
10. если а или b положительное