// 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