Question

ввести с клавиатуры вещественное число Х и вычислить его квадрат Y=X^2. Значения Y и X вывести на экран в окнах ввода вывода

Answer 1

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.