سورس برنامه مارپله

program mapele
read mar
writeln peleh
bendaz tas  1,2,3,4,5,6
if mar=nish then
     lamasab;
else
     damet garm hal dady
if damet garm>100 then
    write 'you win'
end

end