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

program Name;var x , d, c: integer; begind := 27; c := 273;while d >= 7371 dox := 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.