05.06.2018 | DelphiFeeds.ru 2.0

Задачка №24

Есть ли проблема в этом коде?

procedure DoSomething;
var
  S: String;
begin
  S := CalculateSomething;
  ShowMessage(S);
  Halt;
end;