3)

program abc;

var

 a, b, c: integer;

begin

 writeln('Введите числа а и b');

 read(a, b);

 if a<b then

   c:=a+5*b

 else

   c:=2*a-b;

 writeln(c);

end.

4)

1) Результат 40

2) Результат 42

5)

var  

 s: byte;

begin

 writeln('Введите число ');

 read(s);

 case s of  

   1: writeln('Один');

   2: writeln('Два');

   3: writeln('Три');

   4: writeln('Четыре');

   5: writeln('Пять');

   6: writeln('Шесть');

   7: writeln('Семь');

   8: writeln('Восемь');

   9: writeln('Девять');

 else  

   writeln('Введите однозначное число');

 end;  

end.