Program metszes;

{A konstanst a változó számolja ki!}

Uses crt;

Const

        a=3;

        b=1;


Var
       c:real;
       d:real;




Begin
clrscr;
c:=a/a;

Writeln(c:2:2,'       ');

Readln;
End.