{ project3.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Project3;

var
  R: Integer;
  R2: Real;

begin
  Write('Введите целое число =>_');
  ReadLn(R);
  R2 := Sqr(R);
  WriteLn('Квадрат числа равен ', R2);
  if R < 0 then
    WriteLn('Число отрицательное, квадратный корень вычислить невозможно.')
  else
  begin
    R05 := Sqrt(R);
    WriteLn('Квадратный корень числа равен ', R05);
  end;
  ReadLn;
end.