дана сторона прямоугольника найти его площадь и периметр если 2 строна на 30% меньше 1 7 класс паскаль срочно

  Program pr1;
Uses Crt;
Var
x1,x2,s,p:real;
Begin
ClrScr;
write('Известная сторона прямоугольника:');
readln(x1);
x2:=0.7*x1;
s:=x1*x2;
p:=2*(x1+x2);
writeln('S=',s);
write('P=', p);
readln;
end.