Количество знаков после запятой - Turbo Pascal

procedure input(var a:real;var b:real; var c:real);
  begin
    repeat
    write('Введите первую сторону: ');
    readln(a);
    if a<0 then  writeln('длина стороны должна быть больше 0');
    until(a>0);
  repeat
    write('Введите вторую сторону: ');
    readln(b);
    if b<0 then  writeln('длина стороны должна быть больше 0');
  until(b>0);
  repeat
    write('Введите угол между сторонами до 180 : ');
    readln(c);
    if c>180 then  writeln('введеный угол должен быть меньше 180°');
 until(c<180);
end;
 
function side(a,b,c:real):real;
  begin
    side:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(c*pi/180));
  end;
  
function square(a,b,c:real):real; 
  begin 
    square:=0.5*a*b*sin(c*pi/180);
  end;
 
procedure output(a,b,c:real);
  begin
    writeln('Третья сторона= ',side(a,b,c));
    writeln('Площадь= ',square(a,b,c));
  end;
 
var a,b,c:real;
  begin
  writeln('Данная программа находит 3-ью сторону и площадь треугольника по двум сторонам и углу между ними');
  writeln('Введите две стороны и угол между ними (в градусах (до 180)): ');
  input(a,b,c);
  output(a,b,c);
end.