Составить программу определяющий его сторону и периметр если дано действительное число s - периметр

Var s:integer;
begin
  writeln('Введите площадь квадрта');
  readln(s);
  writeln('Сторона квадрта = ',sqrt(s));
  writeln('Периметр квадрта = ',sqrt(s)*4);
end.