7 lines
96 B
ObjectPascal
7 lines
96 B
ObjectPascal
// Òèï double äîëæåí áûòü îïðåäåëåí
|
|
var a: double;
|
|
r:real;
|
|
begin
|
|
a:=r;r:=a;
|
|
readln;
|
|
end. |