Question

uses crt; 

var s:real;

n:integer;

begin clrscr;

write('Collichestvo korney: ');

readln(n);

s:=sqrt(2)*n;

write('S=',s:0:4);

readkey;

end.

Answer 1

uses crt, math

.........................

Answer 2

Все верно.....................................................