CanonSharp/OpenSet/19_if_test4.pas
jackfiled 89ce313b77 feat: CanonSharp Benchmark. (#4)
Reviewed-on: https://git.bupt-hpc.cn/jackfiled/CanonSharp/pulls/4
Co-authored-by: jackfiled <xcrenchangjun@outlook.com>
Co-committed-by: jackfiled <xcrenchangjun@outlook.com>
2024-08-19 14:37:34 +08:00

21 lines
281 B
ObjectPascal

program main;
function if_ifElse_: integer;
var
a, b: integer;
begin
a := 5;
b := 10;
if (a = 5) then
begin
if (b = 10) then
a := 25
else
a := a + 15;
end;
if_ifElse_ := a;
end;
begin
write(if_ifElse_);
end.