agila-learning-examples/en/pascal-foundations-20261101/lesson-2/main.pas

program AgilaStudy;
{$mode objfpc}{$H+}{$assertions on}

var Score: Integer;
begin
  Score := 85;
  if Score >= 80 then writeln('Ready') else writeln('Practice');
end.