var i,D:integer;
begin
write ('Введите переменную D: ');
readln (D);
for i:=1 to 27 do D:=D+273;
write (D);
end.
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.