Program Smetka;
  Var a,b:real;
Begin
  Write('a=');
  Read(a);
  Write('b=');
  Read(b);
  S:=(a*b)/2;
  Writeln('S=',S:6:4);
End.
Published in: Pascal
Download

Related snippets