freepascal.ru

Всем привет! У парнишки-программиста скоро день рождения и я мне хочется поздравить его в виде кода. Проблема в том, что на паскале только чуть-чуть в школе писала и это было давно. Но программку таки родила, проверьте, пожалуйста!

P.S. Максимальные у меня сомнения по поводу того, могу ли я таким образом использовать boolean (что-то мне подсказывает, что не могу).

Код: Выделить всё

Program Name;
var Name: real;
function happy(years_old: integer): boolean;
   begin
   if years_old=>0 then happy:=true;
   end;

begin
for years_old:=0 to 100 do
Name:=happy;
end.


Код: Выделить всё

Program Dr;
var Name: boolean;
function happy(years_old: integer): boolean;
   begin
   if years_old>=0 then happy:=true;
   end;

var years_old: integer;
begin
for years_old:=0 to 100 do
Name:=happy(years_old);
end.


так хотя бы скомпилируется...