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