program ideone;
// Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.).
// Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal
// и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками
{$mode objfpc}
function FN(n: integer): integer;
var
i: Integer;
begin
if n > 0 then
Result := 123;
end;
var
s: string;
i_s: Integer;
begin
//writeln(i_s);
//i_s := 222;
i_s := FN(0);
if i_s = 0 then writeln('пусто');
writeln(i_s);
end.
CnByb2dyYW0gaWRlb25lOwovLyDQn9C10YDQtdC0INCy0LDQvNC4IC0gV0VCLdGB0YDQtdC00LAg0YDQsNC30YDQsNCx0L7RgtC60LggUGFzY2FsQUJDLk5FVCAo0LLQtdGA0YHQuNGPIDEuMCwg0LDQv9GA0LXQu9GMIDIwMTEg0LMuKS4gCi8vINCe0L3QsCDQvtGB0L3QvtCy0LDQvdCwINC90LAg0YHQvtCy0YDQtdC80LXQvdC90L7QvCDRj9C30YvQutC1IFBhc2NhbEFCQy5ORVQsINGB0L7QstC80LXRgdGC0LjQvNC+0Lwg0YEgVHVyYm8gUGFzY2FsIAovLyDQuCBEZWxwaGkgUGFzY2FsLiDQn9GA0L7Qs9GA0LDQvNC80LAg0LfQsNC/0YPRgdC60LDQtdGC0YHRjyDQvdCwINGB0LXRgNCy0LXRgNC1LCDQstCy0L7QtC3QstGL0LLQvtC0INC/0LXRgNC10LTQsNC10YLRgdGPINC/0L4g0YHQtdGC0LguCi8vINCf0YDQvtCz0YDQsNC80LzRgyDQvNC+0LbQvdC+INC+0L/Rg9Cx0LvQuNC60L7QstCw0YLRjCDQuCDRgdGB0YvQu9Cw0YLRjNGB0Y8g0L3QsCDQvdC10LUg0LIg0JjQvdGC0LXRgNC90LXRgtC1INCyINCy0LjQtNC1Ci8vIGh0dHA6Ly9wLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5jLm5ldC9XREUvP2ZpbGU90LjQvNGPX9C+0L/Rg9Cx0LvQuNC60L7QstCw0L3QvdC+0LPQvl/RhNCw0LnQu9CwLnBhcwovLyDQl9Cw0YDQtdCz0LjRgdGC0YDQuNGA0L7QstCw0L3QvdGL0LUg0L/QvtC70YzQt9C+0LLQsNGC0LXQu9C4INC/0L7Qu9GD0YfQsNGO0YIg0LTQvtC/0L7Qu9C90LjRgtC10LvRjNC90YvQtSDQstC+0LfQvNC+0LbQvdC+0YHRgtC4OgovLyDQtNC+0LvQs9C+0LLRgNC10LzQtdC90L3QvtC1INGF0YDQsNC90LXQvdC40LUg0YHQstC+0LjRhSDQv9GA0L7Qs9GA0LDQvNC8LCDQstC+0LfQvNC+0LbQvdC+0YHRgtGMINGA0LDQsdC+0YLRiyDRgSDQv9Cw0L/QutCw0LzQuCAKCnskbW9kZSBvYmpmcGN9CgpmdW5jdGlvbiBGTihuOiBpbnRlZ2VyKTogaW50ZWdlcjsKdmFyCglpOiBJbnRlZ2VyOwpiZWdpbgoJaWYgbiA+IDAgdGhlbgoJCVJlc3VsdCA6PSAxMjM7CmVuZDsKCnZhcgoJczogc3RyaW5nOwoJaV9zOiBJbnRlZ2VyOwpiZWdpbgoJLy93cml0ZWxuKGlfcyk7CgkvL2lfcyA6PSAyMjI7CglpX3MgOj0gRk4oMCk7CglpZiBpX3MgPSAwIHRoZW4gd3JpdGVsbign0L/Rg9GB0YLQvicpOwoJd3JpdGVsbihpX3MpOwplbmQuCg==