Составить программу находящую площадь и периметр квадрата по введенным с клавиатуры значениям его стороны

Var
    num: real;
begin 
    write('Введите сторону квадрата: '); 
    read(num); 
    writeln; 
    writeln('Периметр квадрата (P): ', num * 4); 
    writeln('Площадь квадрата (S): ', sqr(num));
end.