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

Question

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

Answer 1

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

Answer 2

var i,D:integer;

begin

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

readln (D);

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

write (D);

end.