Выполнить округление натурального числа N с точность до десятков (стандартные функции...

Question

Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)

Answer 1

Var
  n: integer;
  a,b: integer;
begin
  Readln(n);
  a:= n mod 10;
  b:=n div 10;
  if a>4 then inc(b);
  b:=b*10;
  Writeln(b)
end.