uses crt; var s:real; n:integer; begin clrscr; write('Collichestvo korney:...

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

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