CanonSharp/OpenSet/20_if_test5.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
239 B
ObjectPascal

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