Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.
45 секунд - 3/4 минуты, а значит за это время можно передать 4000Кб*(3/4)=3000Кб
Var
a, b, t: integer;
begin
readln(a, b);
if b > a then begin
t := a;
a := b;
b := t;
end;
writeln(a mod b = 0);
end.
Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.