задача по информатике 7 класс определить площадь и периметр прямоугольника со сторонами х и у

ВоBаН: Program AcB;
Var S,X,Y:real;
Begin
Writeln('Ââåäèòå çíà÷åíèå "X"');
Readln(X);
Writeln('Ââåäèòå çíà÷åíèå "Y"');
Readln(Y);
S:=X*Y;
Writeln('Îòâåò',S);
End.

Это площадь