Составить программу в паскале на вычесление площади и периметра прямоугольника по его сторонам! заранее "

Program Ploshad_Priamougolnika;
Vara,b : byte; {стороны прямоугольника}
S : word; {вычисляемая площадь прямоугольника} 
BeginWriteln ('Введите значения сторон прямоугольника');
Readln (a,b);
S:=a*b;
Writeln ('Площадь прямоугольника =',S);
End.