3г перевести в паскали

Begin

Program P;
var
   a,b,c: integer;
begin
   a := 3;
   b := a + 3;
   c := b * 2;
end.