Написать программу с циклом, которая 27 раз к переменной d прибавляет 273. pascal

Program Name;
var x , d, c: integer;
begin
d := 27;
c := 273;
while d >= 7371 do
x := x + c;
writeln (x);
end.

var i,D:integer;

begin

write ('Введите переменную D: ');

readln (D);

for i:=1 to 27 do D:=D+273;

write (D);

end.