поэтому условию помогите составить программу в паскаль пожалуйста
var n:real; begin readln (n); n:=n*sqrt (2); writeln (n); end.