3)
program abc;
var
a, b, c: integer;
begin
writeln('Введите числа а и b');
read(a, b);
if a
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.