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.  

 Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.
  Program vet3; 
Var a,b:integer;
 d:real; 
Begin 
writeln ('Введите значение переменных a и b'); 
Readln (a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b;
 Writeln ('Переменная d = ',d); 
End. 




 Ввести два числа. Вычесть из большего меньшее.
 Program vet4; 
Var a,b,d:integer; 
Begin
 writeln ('Введите значение переменных a и b');
 Readln (a,b);
 If a>b then d:=a-b else d:=b-a; 
Writeln ('Переменная d = ',d); 
End.

Задачи на разветвящиеся алгоритмы

  Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10.

Program vet1;

Var a:integer;

Begin

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

Readln (a);

If a>0 then a:=a-10 else a:=a+10;

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

 End.

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

 Program vet2;

Var a,b,d:integer; 

Begin

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

Readln (a,b);

 d:=a*b;

 If d<0 then d:=d*(-2) else d:=d*3;

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

End.

Найти длину окружности p заданного радиуса r.  P=2πR

 Program Okr;

 Var p, r : real;

Begin

WriteLn ('Введите радиус');

ReadLn (r);

p:=2*3.14*r;

 Write ('Длинна окружности = ', p);

 ReadLn

End.