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

S=длина×широта Площадь=(длина+широта)×2

var a, b, S, : real; begin   write('Введите a: ');   readln(a);   write('Введите b: ');   readln(b);   s := a * b;  write('Площадь прямоугольника -- ', s, ';  end.