Надо написать программу на языке паскаль: а*на корень из 2в нужно,до завтра

Var
a:real;
begin
Readln(a);
Writeln(a,' * sqrt(2) = ',a * sqrt(2));
end.

Пример:
3
3 * sqrt(2) = 4.24264068711929