Вычилить периметр разностороннего прямоугольника в паскаль.... надо написать
А прямоугольник, который равносторонний - это квадрат ))
begin
Writeln('Р = ', 2 * (ReadReal + ReadReal))
end.