# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A * B ;
4.         Write(Dientich:3:2);
Readln;
End.
5.
Assgin(f,'HCN.OUT');
Rewrite(F);
Read(F, Dientich:0:2);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A *B ;
4.         Write(A *B:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Writeln(F, A * B);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A *B ;
4.         Write(A *B:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Writeln(F, A * B);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.
4.         Write(A * B:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Writeln(F, A * B);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A * B ;
4.         Write(Dientich:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Read(F, Dientich:0:2);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A *B ;
4.         Write(A *B:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Writeln(F, A * B);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A * B ;
4.         Write(Dientich:3:2);
Readln;
End.
5.        Assgin(f,'HCN.INP');
Rewrite(F);
Write(F, Dientich:0:2);
Close(f);

# data[].attributes.body
1. Var    A, B, Dientich: Real;
f: text;
2. Begin
Assgin(f,'VAO.INP');
Reset(F);
Read(F, A, B);
Close(f);
3.         Dientich := A * B ;
4.         Write(Dientich:3:2);
Readln;
End.
5.        Assgin(f,'HCN.OUT');
Rewrite(F);
Writeln(F, Dientich);
Close(f);