11 lines
248 B
Ada
11 lines
248 B
Ada
with Ada.Text_IO;
|
|
|
|
procedure Main is
|
|
function Passed (Score : Integer) return Boolean is
|
|
begin
|
|
return Score > 70; -- Tinuyong pananglitan nga susihon
|
|
end Passed;
|
|
begin
|
|
Ada.Text_IO.Put_Line (Boolean'Image (Passed (70)));
|
|
end Main;
|