Получается-меяботка??!!а ты в каком классе
Можно заменить на
read(x1,y2,x3,x4);
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
<span>Автопилот,интернет,запись на жесткий диск...</span>
Это означает, что люди очень много говорят и обещают и далеко не всегда выполняют свои обещания