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

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.