5. Ввести число. Если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5.

Program vet5;

Var a:real;

Begin

writeln ('Введите значение переменной a');

Readln (a);

 If a<=10 then a:=a*5 else a:=a/2;

Writeln ('Переменная a = ',a);

End.

 6. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Program vet6;

Var a,b:integer;

S:real;

 Begin

writeln ('Введите значение переменных a и b');

Readln (a,b);

S:=a+b;

 If S>100 then S:=S/2 else S:=S*2;

Writeln (('Переменная S = ',S); 

End.