Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
Ну это уже смешно)
var
a,b : integer;
begin
readln(a);
readln(b);
if a > b then writeln(a)
else writeln(b);
<span>end.</span>
<span>что вечно тормозит и тупит?</span>
Я не понимаю на украинском
Но предполагаю что будет ответ:6