Помогите пожалуйста) Надо написать программу…

Program P; uses crt; var a,b: integer; begin writeln ('Введите длину прямоугольника'); read (a); writeln ('Введите ширину прямоугольника'); read (b); writeln ('Периметр прямоугольника равен ', a*2+b*2); end.