uses GraphABC;
var
x, y: real;
begin
Window.Title := 'Zorro';
Pen.Color := Color.Gray;
FillRect(0, 0, 1920, 1080);
SetFontSize(44);
TextOut(390, 120, 'vvod-vivod');
readln(x);
y := sqr(x);
writeln(x:8:2, y:8:2);
end;
end.
var x := ReadReal;
Print('X:=', x, ' Y:=', Sqr(x));
uses GraphABC;
var
x, y: real;
begin
Window.Title := 'Zorro';
Pen.Color := Color.Gray;
FillRect(0, 0, 1920, 1080);
SetFontSize(44);
TextOut(390, 120, 'vvod-vivod');
begin
readln(x);
y := sqr(x);
writeln(x:8:2, y:8:2);
end;
end.
begin
var x := ReadReal;
Print('X:=', x, ' Y:=', Sqr(x));
end.