Question

Напишите функцию, которая переводит м в аршины. (1 аршин = 0,7112 м)

Answer 1

Function Archin(m:real):real;
 begin
  Archin:=m*1.4;
 end;