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

спасибо

пожалуйста

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