В"кумир". 8 класс 1) ввести число. если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5. 2) ввести два числа . если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза

№1

алг
нач
вещ a
ввод a
если a>10 то a:=a/2 иначе a:=a*5 все
вывод a
кон

№2

алг
нач
вещ a,b,sum
ввод a,b
sum:=a+b
если sum>100 то sum:=sum/2 иначе sum:=sum*2 все
вывод sum
кон

1)var
n:real;
begin
readln(n);
if n>10 then
n:=n/2
else
n:=n*5;
writeln(n);
end.

2) var
  a, b: integer;
begin
  writeln('Введите два числа: ');
  read(a, b);
  if a + b > 100 then writeln((a + b) / 2)
  else writeln((a + b) * 2);
end.