Question

ПОЖАААААЛУЙСТА
РЕШАЕТ ОЦЕНКУ...

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if n mod 5=0 then Writeln(n div 5)
  else Writeln(n*5)
end.

Пример
n= 38
190

begin
  var (a,b,c):=ReadReal3('Введите три числа');
  if (a>b) and (b>c) then begin a:=2*a; b:=b*2; c:=c*2 end
  else begin a:=-a; b:=-b; c:=-c end;
  Println(a,b,c)
end.

Пример
Введите три числа 138 64 7.5
276 128 15